LES EXTRA-TERRESTRES ONT DEBARQUE ! 



JOURNAL 
DE BORD: 

54 MERGOSE 17:65 

Au|ourd'Hui nous avons orilin 
aneanli fa tlotte none qui nous 
narguait depms des siecles La 
Daiiiiifl duraii depuis d«|t deux 
[Ours ei nous avons lit bien pies 
de Denser que Dark Vatan adail it 
remporTe' Heu'eusement nous 
nous sommes bien tires d aflaire 
el nous avons meme 'tussi a it 
cupeie' le Diamant Bleu obitl de 
la convoitise de Sftioc* noire 
Commandant None vanseau En 
terpnse i ires btn result tu 
ehec 

55 MERGOSE 05:34 

Pas at chance • Von-Hay It dW 
■ic m ipt" went de nous s<tvt 
"t dim otiMwce nww u H 
do oenetteiir gauche To«t * 
rnond* cUtrciw drs vjMxws 



idee del h*ux te ne mux irouvei 
Tneu« que conimuer c< recti tei 
qu un nabiltnt de cede piantit n 
Itnil Nous nous sommes poses 
dim un lerrun vigue. ■ labn 
des reoirds Heurflusemem 
notic vaisseau de 250 moires de 
long Stiiit clissimulii par un than 
dei nl iIhs paiissartns Nous avons 
Irouvd rnpidoment un pent bail- 
ment liahile C etait en qua ins 
temens appelleni une epicene 

2 SUBTRIL 62:43 

Nous sommes ennes a lb dans it 
petit* bpulique I epicier avail 
I an quelqut peu eflar* mais 
Smock i est tmpresie de le ras 
surer 

"Boniour am< etranger Nous 
vtnont pour acqjfnr un tntof- 
pnst 

Votis vouier d<re un Lansay 
«4> 

Un Hon un Enterprise Vout 



i Qu ici on 40 ■ 
ca mm laiwar 64 * Cast its 
" tjw fappeMtm comrnt 



pe«eca 

A**** 



dt feotime te Ctetaet 



one***** 
e Vowtn 



sommes p'lsentes devam mon- 
sieur Lansay Nous avons de 
mande t von un Enterprise mais 
ii a insist* pour nous exphquer 
auparavant i histonque de cette 
mtrjiim 

- 'li y a un an et demi nous an- 
nonoons un micro-ordmateur 
ayint 64 kilos de memoire we, 
32 kilos de memoire morle 256 
couleurs. 4 voies sonores stereo. 
un tiaitoment de texte mtegre 
une resolution graphique de 
672x512 pomis el des ports d ex- 
tensions t ne plus savoir qu'en 
lane Gel ordinaleur se nomme- 
rail 'Enterprise' comme le vais- 
seau du Mm 'La guerre des etoi- 
tes* Mais quelqu'un ianqa 
'Samourai* et la machine devmt 
ie Samourai Six mois plus la'd 
le Samourai est rebaptise 'Elan" 
Re-vx mo'S plus Urd le nom 
Elan etant otn depose le nom 
change encore une lois pour se 
|ran$lo'mer en 'flan' Pou'quoi 
it Fian ' Pares ftut ceta ptrmet- 
ta<t 4e garder ies bortie's deia fa- 
tKiquts en ne gratlant que la 
tw'rt du bas de la premiere lettre 
d Elan Mas apres une ragtae 
etude de martne ce nom ne tut 
ftK rttenu NS asset marrjuant el 



a msiste intoc* 
- Je ne sa.s pas taut vo>r a 
conc'u ie mecamcien ' 
Lequipe s est lancee rebmement 
dans i etude de ce! appareii Je 
ne pouva>S pas participer n etant 
pas un scienti'ique de formation 
Je dois me contenter aim de 
donner une idee du travail eltec- 
tue de ciler des passages du car- 
net des lecnmciens 

CARNET 

DES TECHNICIENS 

'Nous n avons pas eu de mal a 
adapter a la machine, celie 
ci ressemplanl plus a un ordma 
leur dassique qua un 
spatial Ses speci'ications 
companies a cents des 
micros que nous 
ch« nous Cet 
Enterprise 
equiped u 



s*g^au vdeo 256 couteu'S sont 
dispoAbies i<mufiantmtnt sur 
I scan grjet a la el c est une 

grange premier? 

A eui deux cat protesters sont 
responsable* du tartrrnntux >t- 
Urd df I Enterprise leur mis* lu 
poini ayant ttt longut tl cou 
ttuse I Enterprise dispose de 
pOIHbilittS d extensions tlonnan 
ttl man n an profile pis puisque 
le seui penpninque dispombie est 
un lacltur dt cassettes 
autres penphtnques sont 
prflvus un moniteur 



Nombce de details ei mim ic ee>- 
pecner i* loncboentwrnl corded 
de ce irmement dt texte n est 
•moossitHe d envoy** des caraete- 
res to control* a l >mp(iman!e er 
de >a tormaittr n est lout auss 
impossible dt rtcnefctier one 
cnaint de caracleres ou de trailer 
d*i docunwnis a partrr du basic 
On 1'Ouv* cependam des lone- 
lions uti'es telle*, que >a mil ' ca- 



55 MERGOSE 34:94 **£** e est 



en pt» nop a 

t» « pays On rtvmt dene a 

fit* vtaeceu*) tavs evoi 



n avons pas d* deliectter M re- 

cnang* 

IE0242 ion *gai*r 

tuegx Noire ordinateuf dt bO'd 

Hal est incapable da rtmtd>«r a 

ce Ucntu. incident Selon 

sntock nous atrons peut tire ttrt 

obliges d aliernr It temps de tout 

remeltre en ttat 

ler SUBTRIL 16:96 

Nous sommes en orbite aulour 
d une plintta donl la caracunsti- 
que principal* til la dommtnlt 

de coulaur vert* Nous sommas 
en train d'apprendre la lanoue lo- 
cale Par H'.iiiLi' las nabilants 
ant la memo appurunco quo nous, 
ce qui va simplillur noire appro' 
che 

2 SUBTRIL 53:75 

Apres d uHirnts rtcommmditions 
de la part du Commandant nous 
avons atiiMi Pour dpnntr une 



- Dt nee el ooudt leeqe* An ' 
ces anglais ' ' 

Nous sommes sortis m ordrt et 
nous nous sommes concents un 
court instant Nous avons oec»e 
de luer I epicter pour lur voter son 
argent aim de pouvoir acqutnr 
les pieces qui nous manquaient 
D aucuns oourront nous repro- 
(.-Her noire brutautt et noire man- 
que d Cgardt man silon les m- 
lormalions qu* nous avion s 
ncoiteei, ii tint ntcessaire 
rl avoir une monnai* d tcnange 

Eour obtamr quoi qu* ce soil 
'hommi I'm t peine te tampa de 
Sargoulllar 'Aiors Ins angiicNs 
oralour ?" 



2 SUBTRIL 64:27 

Nous avons trouvt sins dlldcult* 
Itndroil mdiqu* par lepicier el 
cut It* poctitt bourrtes 
'doteiiie' qu* nous nous 



vous ' VOuS avw un arte dac- 
cent Part* que pour cheneer en 
peu nous avons profile oj pas- 
sage outre-Mancne pour " 
C un nouvtau nom ie Lansay 54 
ll est a vous pour 4900 francs ' 
II a ttt un peu etonne quand nous 
lui avons demande de nous le ti- 
vrer btaucoup plus quand nous 
■ui avons dn ou 

3 SUBTRIL 02:54 

Nous avons ele reellement eton- 
nas lorsque nous avons vu eel 
engin qu'ils appelleni 'Enter- 
prise' II laisait 249 60 metres de 
moms que prevu n avail pas de 
rjflltecleur, m d E0242 
- 'lu as vu qa. Von-Hay ? a flit 
Shtock 

■ ih a rtpondu Von-Hay 
' Tu crols qu on peul taire quel- 
que chose avec pa. Von-Hay (1). 




_ 1MM 
Ces mmm tnmn dene 1 1 J Ko 
*k e^ewrt t«ttaiter Li ZM m 
peet wri na l ie iiiw etrtr get M 
Ko mais un system* d adrtssage 
ongrnal a eie out an point et 
cetut-o est plus pedoimant que 
celui du QL de Sinclair de par u 
plus grande laciiite de rmse en 
oeuvre ll peut amsi adresser ius- 
qu a 4 Mego octets mars es ex 
Tensions memoire ne son! pas 
dispombies 

Deux prpcesseurs sptciaux om 
ete mis au pomi pour cette ma- 
chine L'un s appelie Dave <■ sert 
a decoder la memoir* et a g*n*r*r 
les sons II lait bien son travail 
puisque i uMisateur dispose de 4 
canaux stereos sur 8 octaves donl 
la quanta est vraiment remarqua- 
Dle Toutetois la pieine exploita- 
tion de ses possibilites ne peut ie 
fane qu en langage machine Le 
second sappeiie Nick, at ge>e Itl 



HONGA. HONGA ! 

C»nt eemaWne fee peMi Mtck-y$ ton! a* CARAU. Voir 

pay is 



C'est nouveau, ca vient de sortir : 

L'actualne de la micro informatique Ure page 8. 9. 



BIDOUILLE GRENOUILLE 



trmttqiMt, maoouiH*i. 
ewe iee reotc t f it dv mono* #n tier 
au motni i Of count, men penere' ' 



CONCOURS PERMANENTS 

Vetrt programme, non content de vous rapporter i 000 
trance par page publics, peut vous rapporter 20000 
trance cheque mois ou un voyage en California pour deux 
cheque Irimestre. Regtement en page mterieure 



heoitueriet comme 
d un modem m** peul servtr 
aussi pour un disqu* oplique ou 
numtnque dune interlace Re 
seau qui permetfait de btancMr 
32 Lansay ensembta si on arrival 
I en irouver aulant d un* sortie 
video et d un* *oni« p*nt*i 

Sur I* clavier on not* la presence 
de 6 touches de fonction de S 
touches de control* et d un |oys- 
lick qui sert a dinger i« curseur 
Celui-ci est tort mat place tt 
gene tnormtmmt pour une 
frsppe conlortible De loules 
ligom le clavier bien que maca 
mqua. n'aat pas agrflabio t uim 

si" In', iniiiiii-. ii - 1 v i ■ ■ I |i.r 

rtponse tranche 

LE TRAITEMENT 
DE TEXTE 

L t mi" [■■ ',(■ dispose d un trait* 
meni de teile inlegrl ll til 
commutabi* son *n 40 colonncs 
par 25 nones soil en 64 coionnes 
par 50 iignes ' Dans 'e C«l du 
lansay 126 56 l.gnts soni dispo- 
n-bes tn mode 64 coionnet 



traot 

tl I insertion «•*» era mm 

d ttr* suf'seM peer *m wsaet ie- 

ttnsi* 

LE BASIC 

Lt basic s* presente sous ta 

tonne d unt carloucn* aniichabie 

sur i* cot* gauch* oe la machine 

Normaltmenl deux autres langa- 

ges tonl prtvus. ie Lisp et le 

Forth mais us sembiem s etre 

perdu* dans its timbes de rhy- 

per eipact 

Premier cnoe te basic est lent 

Pour donner une comparison le 

test suivanl 

10 fOR N t TO 1000 

20 PRINT N 

30 NEXT 

» extcule en 1 minute et 20 se- 
condss sur le Lansay aiors qu il 
n» met qu* 44 secondes sur i One 
el 26 sur ■ Apple qui soni pour- 
lani dolts d un processeur (6502 
l 1 Mhj| repute plus lent que le 



/80 



ttO 



DES PROGRAMMES POUR VOTRE ORDINATEUR : APPLE lie ET He 
ATARI 800 XL . CANON X-07 . CASIO FX 702-P. COMMODORE 64 
ET VIC 20 . EXELVISION EXL 100 . HECTOR HR . ORIC 1 ET ATMOS . 
SINCLAIR ZX 81 ET SPECTRUM. TANDY TRS 80 . TEXAS TI-99/4A 
. THOMSON T07, T07/70, ET M05. 



N°69 8 



AMemagne 3 50 OM BelgKjue 70 Frs Canada 2.50 S Luxembourg ?A ft* 
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DOMINOS 



Enfin un programme ecrit par une charmante Demoi 
selle. 

Nous commencions a perdre espoir... 

N.D.LJ.C: Qu'est-ce qui leur arrive aux inlormaliciens de thebdo ? 
C'est le troisieme programme lait par une femme quits laissent pas- 
ser dans le journal! Auraient-its des remords ? Ou alors c'est le 
froid 7 Protitons-en avant quits ne retrouvent leurs espnls 1 

Francoise SALVADOR 

Mode d'emploi: 

Tapez les deux chiffres de votre domino chacun majors 

vous desirez piocher, tapez 0. Tricheurs s'abslenir. 




1 REM ****** MM********** ****** 

2 REM t * 

3 REM I DOMINOS * 

4 REM i * 

5 REM % Franco.se SALVADOR * 

6 REM i * 

7 REM ************************** 

8 REM 

2l? TRAP 15300 

50 POKE 559,0.Q-20:PX=10:O=0.U=1 

53 REM 

59 RE" DISTRIBUTION 

B0 DIM flt28),CHIFr.2D.nlC0),JOf0),C*[5) r J 

J(20),J*(12],JEy*(200).JEt22,12)iTiR=BBi 

N=] :|HU=1 ;PY=S:PI=100 

90 FOR I=U TO 7:^0R J=N TO 7 :HCNUJ = I*PX+ 

J ;NU=MJ+U 

120 NEXT J:N-N+Ld:NEXT I 

140 FOR 1=0 TO 21JF0R J=0 TO 11 ;JECI, J3 = 
TIRiNEXT J=NEXT I 

150 FOR 2<m TO 0;MICI3=TIR:J0tID = TIR:NEX 

r i 

160 FOR I=U1 TO 7 

180 V=INTCRNDtOJ*28)*U 

200 MICIJ=f)tXJ:IF flCXJ^TIR THEN 180 

220 flCXJ^TIR 

240 Y=INTCRNDC0]*281*U 

260 JOtIJ=flCY):IF FltY3 = TIR THEN 240 

2B0 Am = TIR 

300 NEXT I 

320 JEU*rW) = M ":JEUtC200)^ , ' ";JEU*C2J=JE 

U* 

4S8 REM 

499 REM REDEFINITION CARACTERES 

500 GRAPHICS 2;P0KE 712,130:PQKE 710,130 



:POKE 709,I2:POKE 708,24:POKE 711.220:PO 

KE 752, W 

510 POSITION 7,5:-> *6 ; "domi nos " :REt1 ECRI 

RE EN V.I. 

520 RfW1=PEEKU06)-8:POKE 756,RfiM 

540 FOR X=0 TO 1023;POKE RAM*256hX,PEEKC 

■5?344 + XJ:NEXT X 

560 L0C=RflM*256*t36 

580 FOR X=0 TO 55 

600 READ BYTE 

620 POKE L0OX,BYTE:NEXT X 

398 REM 

999 REM LE JEU 

1000 FOR I=W TO ?:? JOCI35* " ; :NEXT I*? 



1060 IF A.SCCC«) = 78 THEN 1200 

1078 REM 

1079 REM LE JOUEUR JOUE 

1880 G0SU8 5000:POKE ?64,159:P0KE 656,2: 

D GKE 657,2:° "QUE JOUE? UOUS' 1 ; : INPUT J :0 

J=l 

1090 IF J=0 THEN GOSUB 4500:If PI=1B0 TH 

EN J200 

1095 IF PIO180 THEN PI = ]00:GOTO 1080 

1100 FOR I=U TO 20=IF JOCI)=J OR tJOdJ/ 

PX-INT(JOtIJ--PX5J*100<INTi:jO[I)--PXJ=J TH 

EN POP :GOSUB 2500:GOTO 1200 

1120 NEXT I 

1140 GOTO 1080 

1196 REM 

1199 REM ATARI JOUE 

1200 IF TR=0 THEN GOSUB 8000 :QJ = 2 :&OSUB 



2S00;GOTO 1080 

1220 GOTO 9000 

2498 REM 

2493 REM MISE EN PLACE DES DOMINOS 

,1500 nEP=0;IF TR=0 THEN 2740 

2503 IF CHIFf. 1J=CHIFC2J THEN 2510 

2504 IF CJJ-1 AND INT(J/PX)=CHIFr2) AND P 
X*CVPX-INTfJ-'PX))=CHIFU) THEN QR=1 iGOT 
2506 

2505 IF CIJ=U ANO INTC J/PX)=CHIF(W) AND P 
X*U'PX-INrrj'PX))=CHIFf.2) THEN DR=W 

2506 IF DR-W THEN DR=0:POK£ 764 . 158 :<=OKE 
657,2:P0KE 656, 2-'! "QUEL COTE LIBRE 1 ;:! 

NPUT M£.MER=W;IF ME>7 THEN 2506 

2510 FOR X=0 TO a:POR Y=0 TO PX 

2520 IF JECXVOOCHIFCU) AND JE[X,Y)OCH 

IFC21 THEN 2560 

2528 IF MER=U AND JErX,YJ=ME THEN 2560 

2530 Al = JECXt-UI,Y):A2=JECX,YtU3 

2532 IF X-0 THEN A3-TIR 

2534 IF Y=0 THEN A4=TIR 

2536 IF X?0 THEN A3^JECX-U,YD 

2539 IF Y>0 THEN A4=JErX,Y-w) 

2540 IF AH-A2'A3*A4>3*TIR THEN DR=U 
2550 IF DR=U THEN DR=0 : IF JE(X, Y)=INTC J/ 
PXJ OR JECX,v)=px*(j/P>i-lNTfJ''PX)] THEN 
"OP ;G0T0 2630 

2560 NEXT Y:NEXT X:GOTO 1080 

2630 CAP=U;DI^INTCRNDtO]*4+4):DI=2600tDI 

*PX:G0TO DI 

2640 IF X-2>0 THEN IF JECX-W.YJ+JECX-2, Y 

1+JECX-3,YJ=3*TIR THEN OR=U 

2645 IF DR=W THEN DR=0=IF JE(X-2, Y*W)*JE 

CX~2,Y-U]^2*TIR THEN POP ;X1 = -U -\] =0 :GOT 



2650 IF X+2<Q THEN IF Jl 
HJECK>3,Yj=3*TIR THEN DR= 
2655 IF DR=U THEN DR=0:IF 
rX+2,Y-U)=2*TIR THEN POP : 



2660 IF Y*2<PX THEN IF JEtX, Y*ld) +JECX, 
2)tJEtX,Y.3)=3*TIR THEN OR=U 
2665 IF DR=U1 THEN DR=0:IF JECX.-W, Y+2)< JE 
rX-W,Y+21=2*TIR THEN POP ;Xi=0:Yl=W:GOTO 

4000 
2670 IF Y-2>0 THEN IF JECX, Y-UJ+JECX, > 
H-JECX,Y~3^3*IIR THEN DR=U 
2675 IF DR=W THEN DR=0 = IF JEtXtU, Y-2HJE 
CX-U,Y-23=2*TIR THEN POP = X1=0 : Yl=-M :G 
4000 

2680 ■CAP"CAP+U:IF CAP>2 THEN 7000 
2690 GOTO 2640 

2740 IF TR=0 AND QJ=W THEN JEU»(Q*PY*P 
Q*PY+PX*U]=STR*CJOCD) =J = JOCI) :JOCIJ = TIR 

2741 IF TR=0 AND QJ=2 THEN JEU*(Q*PY*PX, 
0*PY+PXtW)=STR«tMICIlD:J=MICI);MICIJ^TIR 
2760 JEf.PX,PYJ = rNTCJ^PX):JECPX-HJ,PYJ=PX* 
[J^PX-INTCJ^PX]] 
2800 POSITION 0,0:? »6iJEU* 
2B10 H=Ul:FOR X=0 TO Q:FOR Y=0 TO PX 
2B20 IF JECX,Y1=TIR THEN 2BB0 
2B40 Al=JECX*Ul,YJ:A2=JEtX,YtU) 
2842 IF X=0 THEN A3=TIR 
2844 IF Y=0 THEN A4=TIR 
2846 IF X>0 THEN A3=JECX-U, Y) 
2948 IF Y>0 THEN A4=JECX,Y-U) 
2860 IF Altrt2tA3+A4>3*TIR THEN CHIFCH]=J 
ECX,Y3 :H=2 





LES ENVAHISSEURS ^ 




THOMSON r ^ 



Quel confort de pouvoir au gre de son humeur choi- 
sir le nombre et la frequence d'attaques de vos en- 
nemis. II n'est pas interdit, au prealable, de consul- 
ter votre btorythme. 

Hugues GABRIEL 

Mode d'emploi: 

Utiliser la manette et le bouton action. Vous dispose? de 3 vais- 
seaux et la possibility de choisir le nombre de lignes et le nom- 
bre de colonnes ou figureront les envahisseurs ainsi que la fre- 
quence de leurs tire. Gare en fin de partie aux appreciations 
du commandant. 



ERRATUM sur TO 7 M05 qui ont la possibility de 

ISABELLLE ET LE DRAGON du rentrer le programme dans sa 
n" 64 totalite , devront taper les lignes 

Les possesseurs de TO 7/70 et suivantes: 

19 CLEhR500^70:CLS!SCREEWE,0,0 
69 IF R*="O"THEMGO5UBi0i0:GGTO80 
75 LlME(B,SS>-<39,££)CHR*<ia7>,Bi LOCATES 
»2I-t COLOR6^0!PRINT"Patientez un itoaentjj 
e '/ous mijote une petite partie. •..!! 1"! 
RESTORE 49000: GOSUBE50E8: GOSUBE6005 
1065 RESTORE 49000:GOSUB 25020:GOSUB 260 
05 



Z& ■+ + * + + .+ **LE? EriVuHIiiEljPS*********** 

- f , -*****■*,« .--. ■:-. v « -■-■ ?■<■*■>.• ;-;v ******* 

40 'CPEE PBR Gabriel Hugues 
SB 'POUR UN T07 + E^TENSIOW 16 Ko * 
M&NETTE DE JEBK 

6 g C^RWCTEF-E SPEC 1 AUK 

70 CLS:CLEftR1000,,E5:SCREEN?,0,0 
:>.. tCFINT 0-2 

=..! [.[ii f<9..,v$<7'vE. 6->,u':7>.C-:7>,Eri iW- 

,NA<!0>,NBC10 i*T*t£B>,.VC3>,X-C3> 
:-:<« e* = -■;: I Lti e L h =>.je ?^i- 1-** r hpi Iff E#REDO#DO " 
110 DEFQR$<9> = 4,8^,5,7,£4,3S,64 
I?,": W.rW. 1 '=3c. :^.££-4., 160, ££4..S4.,4,S 
136 &H-QR*(e>-0. 1,3,5, 1J. 1.145, I £4 
Mi": r^TCHS'l- ■ = ■?. i £*.£es. '.i-ti. 1?£, I23..S41, 
6E 
i [ 

isa i 

ITS DEFGR*<.6> = 1.. 3.6-3,31, 36, 7E, 14' 

;:■:-•■ C'ETFCF:*-. 7 ■, = !£,;:. l*E,«i., 1 9£, £4S. 16. 1 S, 9 
190 DEFGRS(S :' = I7-Q. ??.?3. I 5. 4, 9, 8, £0 
£.--! r ■ EL i." ■: P 3- ." ■? - = 65. l??.. !7£.£4'?.;E, It.. 1--49 
:,:> C'ETSFI' 15: = l,l?.4£,B.7.133.1i2.1£i,3£ 
...-^ DE'-^-ll -!£i- :'?':■■ 54. 194, 161, 33,30, 



16 



= £55. i-. 



145,141,131,145-, 
il,l?3,161,i45,'?,. 



2T0 DEF^PH 
76, £55 
E40 DEFGRt- 13:=£55,9, 



:: r 'j ff.'GB:t' 17;=.1,£,1,£, 1,£, 1,1 

ir-0 DEFGRr i S :■ = 1 . 7 . 5 . ?. 31 . i3, 1E6, £54 

£79 DEFGR*'- I ° ' = 1 £5. I9£. 1 60, 144,£4S,£5£. : 

£6,1 £7 
£S@ DEFGRt' £0 ■ = !£?, 1 3? . 135. 193, £55, 193. : 



Ii£v 
1490 
1=-0Q 



154,3 
155-3 



i DEFGR*(21>=1, 1£?, 193.3. £55,3,129,1 

i DEFGR»<22>=3,3,3,3,3,3,3,3 

) DEFGR*<23:' = 1£9,S, I , 40, £, 360, S, !£9 

J DEFGR*i:24i = l£9.S. 1.40. £, 160, S, 129 

! VT*iGRS'20>+GP*<£!> 

I EX*-GRtC23J*CRf(24^ 

I MI3t=GRJf[8:'tGRt(19> 

) GOTO 3490 

i ' Defacement ctes yaisaeauK 

10 ' 

6 FOR 0=J2 TO J 

;y L.JCt-TE CCD>,Lil>l:PRIWTV*<l» 
10 GOSUB 2900 

■0 IF L<;j)<19 THEIS GOSUB £900 
18 CtD) = CCD> + l:GOSUB £000 
■0 IF C(E')*':3*BflCD>> = 37 THEN 1100 
■•; i:osub £000 
i0 NEKT 
'0 FOR D=J£ TO JUF «*<DJ<>" " THEI 

J2=P:G0T0 1010 ELSE MEXT D 
'1 GOTO 1910 
|0 FOP fi=l TO J:L-.fl>=L(fl>*l:WEXT ftl 

GOSUB £800 
15 IF LtJ**82 THEW FOR ft=l TO J!H6!' = 

LCfl>-5:C'Hi=3: WEI'.'T h:GOTO3100 

eo:-!F!0.4i->.4y,£l>" » 

B6=<J*2>t£:B5=J 

FOR D=l TO J 

LOCATE e<t»»t.£&>J PRI«TV*6t» 

GOSUB £600 

C[>>=Ci D>-1 :GOSUe £000 

IF LCJXJ9 THEW GOSUB 2900 

IF C<DK£ THEW GOTOI590 



■ else we: 



:NE^T t 



1575 FOF D=J2 TO . 



J2=D=G0TO 1 
1580 GOTO 1500 
1590 FOR A=l TO J=L< 

GOSUE 2890 
1595 IF L(J)=2£ THEW FOR fl=l TO J!LtflJ= 

L<fl)-S:C'H...= '?:KE..:T fi:GOTO3100 
1600 BO>:F<,'0,4>-(40,21J" " 
16E0 B6=<J*2>*2:B5=J:GOTO1019 
1990 '-DEPLOCEMENT DE WOTRE VfllSSEflUX— 
2000 IF B6>9 THEW B6=B6-1 : RETURN 
£010 IF STRIG<0'<>0 THENGOSUB2100 
£015 B1=STICK<0>:IF 01 THEN 20E0 ELSE 

RETURN 
20E0 [F 0>4 ONO 01=7 THEW 0=Q-1 
2030 IF GK3E AMD 01-3 THEN C!=5+l 
£040 LOCATE!?, 22JPRINT" "+VT* + " " 
2050 O1=0!RETURN 

; e5e , tir 

2100 R=Q*l:E2=2 

2110 FOR A=£ TO I STEP -1 

£120 IF::(A>=R THEN fl<E2>=¥<fl>+I«E2-I2-l 

PI 3« NEKT A 

£149 FOR A=J TO J2 STEP-1 

£150 IF P0INT(RM+7j.LCft>«8+3H>-l THEW 

DEV=l:GOTO 2170 
£!fifl I' P0IWTfR*8,L'"A>*e+3?i.>-l THEN 

DEV=2:G0T0 E170 ELSE BEXT ft 
2165 DEV=9 

£170 FLhY "L10fl£TlO5"+B* 
£130 IF A<2?>£0 THEW E2=l ELSE E£=£ 
£190 IF A = 7 THEN L<A.) = LfA>*l 
££80 iF Lvfi-' = 1 hNC' E3-:.>0 AND DEV=0 THEN 

4400 
£216 IF L<A>>20 AND A=7 THEN L<!AJ=L(A>-1 

: RETURN 

.:;:■:! for >j^=£>} to hq> step-i 

££30 PSET';R,AA;GR«<22S,7 




PSET(R,AA+1}" 

IF AA=fl<;E2) THEN PSETCR,AA)" ": 

AA=AA-£! E2=E2- 1 : GOTO2250 
2269 NEXT AA 

E270 FOR A1=I TO 3= A<A1 >=0: NEXT fil 
2275 IF A=7 THEW L< A>-L(A>-1 : GOT02285 
•22S0 IF DEV>0 THEN R=R-(DEV-1 > : DEV=0: 

GOSUB £300 
22E5 PSETIR,AA*1>" "JRETURN 

£290 ' TEST 1 

£300 Y5=INT((R-C(A?>/3)*1 

£710 GOSUB 2020 

£320 E*>:V5*CA*I0)>=" "!V*<A) = "" 

E73V! GOSUB 2020 

2340 GOSUB £400 

£j58 GOTO £500 

2390 • EXPLOSION 

£400 LOCATE R,ftA*l:COLOR liPRINT ZXS 
£410 LOCATE R.AA + UPRINT " " 
£4£0 PLAY Wl 
£43y RETURN 

£490 ' POINT 1 

£590 SC0RE=3C0RE-< ■ 5C0-(.A*5)> 

2510 LOCATE16,9,0 

£5£0 PRINT SCORE:F^A>=f (A> + HAAA=AAA-1 

2530 IF SCORE>SC THEW PLAVA9T 1L4G4SI" : 

SC=SC+1000:GOSUB£659 
2549 IF U£=I THEN RETURN 
£55j> GOSUB £700 
£560 RETURN 

2590 ' VHiiSTV-lj:. RioTmWT 

£t00 LOCATE v'T, £4 . ij: F-B.IMT" "J 

£610 VT=VT-3 

£620 P=0*l:AA=EE:COSUB 2490 



PILE OU FACE 



Armez-vous d'une extension 3 Ko.de beaucoup de pa- 
tience, d'un tube d'aspirine, dun bon cafe et vous 
serez pret a affronter le casse-tete du siecle! 

Philippe BOICHUT 

110 'EH^PILE Cli-l FACE* 
, I + HHK* 

1 _-_■ ■■■■; h. . . . . 

_-!0 --.":-:•;:: IrrJICHUT * 

1-30 w.>,-:m ruilipre * 



3 REM*** VIC 20 #* 

J' r^'v-:^-:-:;-"^*.:.;-:,^-;..- 

3 RK' 

i i i !:■:■ ;:■■■■..■ 



j 00ii.'Ll02i.3CLR 

■3 P0LE3607?. 175 81=5599 

S n=RNB<l? 

3 REMt*INITIRLISflTIQN*#* 



VOICI LR 1EPE LIGNE" 



N'Vfl QUE ffll& 

GOT naaa 

IL N'Vfl Pfl8 KDE 



PRINT PRINT PRINT 

PRINT- 1 23456?a3l 

3 PRINT")* • ••!•••• 

FQRX=1TQ10 

5 2$-...;:> = "3" i«.:-;t;< GOTQ380 

■:. pp i t-.T "ji-nn['![:!Tqu=ji-jjji:jL! :■_.!_.;.-: = hi 

.■■i'i ■ 

PRINT"MliaHnflRNDOUILLE! 
PRINT ■' MaWPECO-'-FJICii- 

3 PRWSJftl SC'XP'i'X. 'B 
3 FORT=ITO 880 NEXT 
3 IFC=5BTHEH lElB 

3 PRINT ■" 

3 POKE 193,0 

3 INPUTP PRINT"n 

3 IFPOINTIPJ THEN 63999 

:■ REi^iCOnPRRRISON 



3 IF P=99 THEN 1160 

3 IFP>=li THLN»:i 

3 IF P=0THEN378 

3 IFM=PTHEN64g 

3 M=P 

3 IF2J(PJ = ,, tli , 'rHEN610 

3 Z*<P>«"»" 

3 E= TfW<FW('S-P>-SIKC1VP) 

il ?=-=l-:-:-336?L^-IN OSF-v P=R-INT(P> 

3 P=TNT':i0*F) 

3 IF2*CP>a"»" THEN610 

3 2J<P ) = ■'«•" 

3 GOTO740 

3 2*<!P. ="»" 

3 IFM=P THEN550 

3 GOTG740 

') IF2S<P> = "Sit"THEN?20 

_• Z*<pj-««H" 

} R = .5Si*'a,.- , T0H'H. , F-i-f. ■ ■.•'_.! II iP42'R< -CO W< 

j p=r-int<r:< 

3 P=INT!10*Pj 

j if zkp )="i»"then720 
. zi;pj= ,p s»" 

. GOTO740 

3 Z»<P ) = ■■•" 

3 IF M=P THEH66B 

3 PRIHT-MMWMl H45678S 10" 
1 PRINT 

F0R2=1 TO 10 PRINTZ*<Z)- , '« " - NEXT2' 



768 

770 c=u+i 
7S0 PRINT 

rsa forz=i to 10 

300 I-Z;;.£:.:> D;-j"T-i£r.;3fi 

310 NEXTZ 

820 REIWCONLfS'FiliO-:- 

330 RE.-MitiiRESFjLTfiTJvv 

S48 IFC>=11 RND CC=16 THEN930 

853 IFC<=10THEM 330 

866 IFO=17fiND C<=33 THEN105B 

870 IFC>35 THEN 1116 

380 FORT-lTO20tl« NE.:-:r 

3:-J0 RRINT".M!Mi 

900 PRINT "-SJ1 EKL.tLLEMT.vniJS FIVEZM TROUVE ENR.",C, "•COUPS" 

910 F0RT=1 TO 1560 NEXT 

920 GOTO970 

930 FOR T=l TO 1500 NEXT 

540 print":thm* 

950 PRINT "SH FR3 MflL'VBUS HVEZfl TROUVE B*#' id "■COUPS 

960 FijRT= t TO 15G0 NEXT 

978 [RXHITHENHK PRINT n M»REe0RB BHTTUl" 

:■::■■ PRIP' .^XlO [ :■: .!-!_ . L ' 3UF "■ 
990 PRINT -WBOSUNE AUTRE PflRTIE 30,'NS" 
..:: I: 'OKL19S.0 
CIS OETKf lF;C-¥«" , -:-".„fi:tl>j 

IFX*="N"THENltt4'_ 
030 GOTO260 
04FJ POKE_:i_:_~y.^.' PRINT'TE" END 

050 F0RI=lTn2£ii.e ne:-:t 

.■:£>. ;V:..r-;;K*nH-T;ti-.LHTION*# 

070 print 1 'ram 

""" PRINT"PR5 TERRIBLE V003 RVE2N IF.'OU'-'t EJ-W ■ t ■ "■COUPS 

o:->o FO-.i = i in k:,i_i_ next 

COTO970 




mo fort=ito_'.i00 ne:-:t 
1:20 pPinr'DHWM 

1130 PRlHT-LHtlEMTHBLE VOU; HVE2W TPO.JVE EN'S" . 

ii4u forv^l to isee ne;-:t 

11W 1..OT1.970 

1160 PRIHT'OTBW WEST CE SUI VOWS 



1I70 PRINT"JOUER R UN' 

1180 F0RT*1 TO 2080 NEXT 

1190 C-9999 

__i.n <.rjTCi970 

[_!0 FRINT''aMWMflW«M«S!>«M 

12^0 Fmei38.0 

l^JO ._TRf _FB$ = "-Th_>.__3_' 

1246 IFRt= rj THlhPF ;■■■.- "7MW 

1250 IFH$="N"THEN1270 

i_tO r.r,T01S30 

1276 PRINT 1 

1280 PRINT 

12'JiS PR1NT"9W 

1 ;:i>_ G0T043B 

i.JHi RErwtPRE'-ENTHTlON** 

ii2_- F0KE.36S79.125 PRINT 1 

1330 PRINT" a 9 3 

1349 PRINT 



PRINT"* JEU fl'JSSI COMPLIQUE'-"' 



VUU'. VOllEJ F-RS- ■:'OU...I 



3 s a a a ■ a _ 



1350 print- a i a ■ a ■ 

i860 print" as a > a i 

1370 print 1 ' as a s a _ 

1380 print" as ass ■ 

i. ; :5>- PR1NT"» 

1400 PRINT" a S B S 

1410 print- a s a a a 

1420 PRINT" a S3 

1430 PRINT 
1440 PRINT"S 

14^0 print" a ■ a s a ■ 
1460 print" as asasas 
1470 print" a s asasas 

1430 PRINT 
1490 PRINT 

i_.ee. PRINT 

1510 V-l 

1.-..0 rori^lTi. i .■00 NEXT 

1_..JS FuP.1-2_Tij1STFF-! Pul;E.>i_:_-_-, i 23 -. FOI- L 333i_7 . 2 >2'M POI E._i_i:64 ■ _ 

2-2*1 

1540 NEXT I 

!'.■:,.■ FORT=ni_2i_0 NEXT 

1560 PERDU 

1570 IFW=-1THEN1630 

1530 -3KE33879.1. 

I3?0 i : 3RI = iTi3.i2 POKE it-:-;r;.t. .;_:_;+! FT...E ! ; c33 7 ■ 2+i 1 * I POfE-J::-: 

NEXT I 

1600 V=V+1 

1610 IFVCSTHEHISSJ 

I..-.0 IiMTA3g,27.-l 

Ih.y n.iR^nC200 NEXT 

1 *" r F LI I -" HEKT 

1,330 FRiuri.IDii '+ * * + EONJOI.H.: * + * ",Q,1>. NEWT 

lt-70 7ORT=1TO2OO0 NEXT 

!..:_0 PfINT"^HO 

163B PRINT "rW Pli F fll.i Far :FW 

1706 PRINT" WH.«" 

1-10 FORi'^iluly r->-:;' ( '"'i<.;_.:l", FOR,,, M .,..:..: '.c:.T 

1720 ■-K-lKii-lIJ.i:. ■. " U'i JE.J pF'0P!.!3It. P« ,0,1'. NE^'l PF'INT'f 

1-30 F:;f.f.= HD22 FRiNT"'_>lt[" i= 0RU= 1 T093 NEXT 

l.-,;o rR-.N-fMID-tr' FOIC^'-iT PHILIPPE ",Q.1>, NEXT 

1756 F0RT=1 



'■-] POKE .63b5-S2 , : -*I 



_REGLE& 



(03N., 



i9ie 

1926 
1930 



2040 
2050 
2060 



;r;'$="0 THEN1G2Q 
IFZf="N"THEN240 
GOTO 1770 

:■;■'■■ .-..;..:o\. .;:;-■ 
PFi!-Ti:nR 4 -a4j"_B«a 

PRINT" 10 PIOtIG V0IJ3 3011V nPR0=-33E:_ EN UNE RRflGEE" 

PRINT"«M -HRQUE PIGN P3SSGBE SDEUX FACES" 

PRIHT"ftL-UNE NOIRE " 

RRIM-"M_huFRL -ERTE SKI " 

OO:=-UJ320V_i 

PftIMT"3M« LE BUT DU JEU EST DE HFRIRE PIVGTER", 

PRINT" LEG 10 « PIONS SUP LEUR AUTRE OFFICE, ft" 

PRINT" LOR.SOUt LE3 10 P10N3 «"3IF.:_ .0111 vtf.'l S- Vijij.-, WLZ GRGNE" 

pRiNi 'wewn ■>.*-.» »ii-/i-.r,,-"H_!" 

CGSUB207S 

PRINT-™ LQRGO'j'h Lfl BUESTIDNM .. "'• /T. "hr/",VOUS «REP0NriE2", 

PRINT" LE NO, in.. '■■:...' .jS'.JE v,;::.;3 .;■;!;_.: f hIPEjIFIVOTER* " 

PPINT"JD UN O.J SF-Li..i.ltL"VF.[i Pl;jN-L.?f ■!:!.,-■■■.■'.■! F.t;.;;; yi^LPGEi^Plnji.] 1 - 

COSOE2070 

?■■■:]'■- -:i\m t<p e :lI'Iple " 

ppint":bib] »i vous rentrez le :ochifpre i,les pions m et a peuvent pivote 

PEL R VGTRE MEHOIRE "i 



PRlltV 
PRINT 1 
PRINT 1 



.LP PflHTlj-IPK M.., .,GT32.1l_ 

print- ai«-r» //- ir.--|-S" 

POKE 138-G 

OETZt- IFZS^""THE l i2u90 

RETURN 



^THOMSON 

Suite de la page 2 

2b39 IF VT=2 THEN 4200 
2*49 C.OSUB 2890 
£645 RETURW 
2650 VT=VT*3 

£660 LOCATE VT,£4.8!PRINTVT*; 

2670 IF VT>20 THEN VT=VT-3 

£6S0 RETURN 

£690 ' TEST £ 

2760 FOR ¥+=Nfl(flJ TO 1 STEP -I 
2710 IF E*<Y4 + c;h*10>><>" " THEN 

Nft<ft>=V4:G0T0 2730 
2720 NEXT V4 
£ 7 30 GOSUB 5020 

£748 FOR Jfc=A#l*+l TO fi*10tNH<H) 
£750 V»(H) = V*(;fi>*" "+E*CJfl)sWEXT Jfl 
2760 V*<R) = W*CH>t-" ■ 
2770 IF SCCRE>SC1 THEW SCl=SCl+675:iO-:.UB 

4000 
£780 IF flfifi=0 THEN 3£00 
£798 IF F.f..=t.H + l m\> fi = J THEN FOR i*H=J 

TO 1 STEP-IMF F<:fifl>ONH + l THEM 

J=6ft:RETURN ELSE NEXT HA ELSE 

RETURN 



E795 


PRI«Tf.HR:«HH^HHA+i:GOTO 3£60 




'-RELHLICNEMEWT WISSEftUX ENNE' 1 lIi- 




r.iF: H(i^£ TO J 




2610 


IFe«ftfl>=<>C(ftft-t>THEN 




2820 


we>:tr« 






RETURN 




EB90 


' TIR DES VMSSEfiUX 


ENNEMIS 




IF B5J0 THEN E5=B5-l:RETUPN ELSE I 




V(£!=E2 THEN £910 ELSE 


2999 


£910 


FOR A=£ TO Dl STEP -1 




£920 


y;a>=y .(.-!>:>;. to =xtfl-i 




£930 


X<DI>=Q+l 




8940 


FOR fl=J TO J£ STEP-1 




£950 


IF P0INTiXiDl>*e + 7,L(Fi 





THEN £930 
i IF P0INT(Xi.Pl>*e J .LCH>*8+3K>-i 

THEN £980 ELSE NEKT R 
5 >;'.Dl> = C<J2J + INT(RND*':NHtl)*3.': 

G0T0E949 



£930 


v,;[,iv=Li 


»*1 




£990 


Y(13 = 


•<\ 


+ l:y<£)=YC£>+: 




3060 


IF Y< 


?">* 


22 HND »(.S>--a*; 






»ND ■> 


'P5 


=Q*2 THEN 3109 




3010 


FOR ( 


<M 


TO 2 




3020 


PSETi 


t(* 






3038 


FSET. 






3040 


IF Y<. 


d>> 


31 THEN PSETCXC 


25. V 





GOTO £919 


3050 


RETURN 




> VhISJEhU:- FM MOINS 




FOR A=l TO 5iP! fiYNJ:MEXTs:GOSUe 






3118 


Y(15«19JY(£i=2£:xa:. = l3:X(2) = 16 


3120 


B5=J:B6 = J*3-3!G=4:C(£>*Ci:i>: 




C(.!=Ci.W:C(4)=cn):C(5) = C(l) 


3138 


BOXF^0.1)-i;40,22J" " 




GOTO 1609 


3198 








L(9>=l:N3=0!D3=18 


3210 


IF Nrt-iG THEN NR=NH+1 ELSE IF NB<S5 




-:!vC MA = 8 THEN NB=N8 + 10 


3215 


N1 = 19-(UMB-1 I -10J*£> 




FOR W1=WI TO Wl*l£ STEP 2 


3230 


W3=U3-H:L(W3.i=Ml 


3240 


NEXT Kl 


3268 


J = U1B-1 >> 16!35=.!:Pr.= j*7-3:Q=4 


3279 


FOR H»l TO J 


3288 


Vt!A> = NR(«> = N<Htl:NB<fl> = liC<AV=0 




F!A)=0 




NEXT (. 


3388 


Y(l.-13iY<£>^£e:xa> = lG:X(.2> = 16 








aaR=CNfl + l>*<<NB-n/10':SCO= 




Suite de (a page 2 



editorette 



Amies informaticiennes, bon- 
jour Je suis ravie de constater 
que notre lutte commence 
enfin a porler ses fruits. Heb- 
dogiciel, journal sexisle spe- 
cialise dans cette discipline 
phallocrate qu'est linformati- 
que. vient en effet de se plier a 
nosjustes revendications. Non 
seulement c'est UNE redac- 
trice en chef qui vous parle 
cetfe semaine dans cet Edito- 
rial mais, en plus, 5 des pro- 
grammes de ce numero sont 
Icrit par des femmes. Une 
premiere victoire que nous ap- 
porte nos camarades Chris- 
tiana, Francoise, Genevieve, 
Gisele et Marie-Claude mais 
qui ne doit pas nous faire ou- 
blier les bastions qu'it nous 
reste a conquerir. II est par 
exemple scandaleux qu'aucun 
article ne soit signe de la blan- 
che main d'UNE journaliste, 
les hommes auraient-ils le mo- 
nopole de I'ecriture ? LA facon 
degradante dont on traite LA 
claviste qui tape les petites 
annonces constitue egaiement 
UNE atteinte grave a nos 
droits. Comment peut-on en- 
core de nos jours considerer 
cette temme comme un simple 
objet d'assouvissement de 
phantasmes masculins en ."ap- 
pelant "Jolie" claviste (1) ? 
Nest-ELLE pas UNE travail- 
leuse comme les autres et 
doit-on Her ses merites et ses 
qualites professionnelles a son 
aspect physique ? Ecrit-on 
"Note du mignon redacteur" ? 
Un autre point, et probable- 
ment celui =i traiter en priorite: 
les bandes dessinees que la 
redaction ajuge bon de rentrer 
dans ce journal specialise. 
C'est UNE veritable agression 
hebdomadaire a LA dignite de 
LA Femme que nous subis- 
sons a chaque parution des 
dessins de Carali ef d'Edika. 
C'est sans succes que les ca- 
marades du MLF et moi-meme 
avons essaye cette semaine 
de faire supprimer LA bande 
de cette semaine qui est UNE 
horreur qui va meme jusqu'a 
mettre en competition LA 
femme el lordinateur. Et c'est 
I'ordinateur qui gagne ! Mobili- 
sons-nous tout'es pour que 
soient bannies a jamais ces 
pratiques antediluviennes. LA 
lutte continue: le machisme et 
la phallocratie -ne passeront 
pas. (Sauf en tete-a-tete et au 
lit I) 

Gerarde Ceccaldie 

(1) Voir les notes de la jolie 
claviste (N.D.L.J.C) de la page 
"petites annonces" de ce nu- 
mero. 



■.% 



MACON 
GRAPHISTE 

"Graphisme scientifique sur 
micro-ordmateur" de Robert 
Dony vient de ressortir dans 
une nouvelle edition chez 
Masson (d'oCi le litre I). 256 
pages qui exposent les 
bases fondamentales du gra- 
phisme en deux et trois di- 
mensions. Avec un rappel 
des principes mathemaliques 
necessaires, vous trouverez 
50 applications en basic 
"standard" et une annexe 
supplemental re destinee au 
Commodore 64. Les utilisa- 
teurs d'autres machines 
pourront se servir de ce livre 
sans problemes, a condition 
toutefois de bien connaitre 
leur ordinateur. Environ 100 
francs. 



EXL MANOIR 



Voici un magnifique jeu d'aventure ou les ma- 
gnifiques qualit6s sonores et graphtques de cette ma- 
gnifique machine sont mises en magnifique evidence. 
Valery BRUNEL 

SUITE DU N 68 



96 CALL RFC'SE TERMINE ".101 

97 CRLL flF( "CETTE", IB) 

98 CALL AfC" AVENTUftE...",14) 

99 CALL EFFC 10) 
m GOTO 646 

:01 END 

i02 REM MU H M I Wi a TEST *************** 

03 FOR I«B TO 100 CALL KEWX1.WIJ 1 

IF X1=RSCCF»)THEN 320 
104 NEXT I 

103 REM » jf l *H i W TEST FERPU ********* 
J06 CRLL EFFC0) 
(07 CALL RFC"P1RUVRI5 ",3V, 

CRLL RFf "REFLEXES!", 4 >■ PAUSE .8 
; 0B CRLL RFC "LA PR I NCESSE " , S ) 
■99 CRLL AFC'SE MOQUE", 7 >CALL RFC "DE 

VOUS", 8) CRLL RFC'SES GARDES "10> 
il0 CALL PFCVOB CHRTIENT'Ml) 

CALL RFC "VOUS PERDEZ", 13 1 
ill HH-INTRN0C6H5 
112 VI"INTRNP(30>*10 

ija tfie-vrfi-vi 

il4 FQuRJ-HH 

15 CALL SCCVlE.FO.MR.Ff?) 

; 16 CALL HFCSTRiCHH)&" PTS force" (9) 

17 PRUSE 1 CRLL HFC STR>C VI )!?" 
PTS VIE ",1?) 

IS CRLL EFFC8) 

19 REM ******** CRTRPULTAGE ********* * 

20 CALL EFFC0> 

21 CRLL AFC "LES GARDE'S" *. ■> 

22 CRLL RFC "VOL'S". 8? 

CALL RFC "CATRPULTE ORNS",10) 

23 CRLL AFC "IJME SRLLE 0U",12V 
CRLL RFC "CHATEAU", 141| 

24 PRUSE 2 CALL RFC "BON" • 17) ■ 
CRLL RF." "flTEPPISSAGEi",18> 

25 PAUSE I 

26 CALL VLRCYACLIEUS.XRCLIEIIV, 

27 LIEU^IMTRNPCgB) 

IF V<LIELH=60 THEM 32? 

?8 CALL GLK-VRjCLIEUS.JWCLIEJJJ} 

29 GOTO 225 

30 REM 

31 REM ************ PRTA5 *«#«NN*|||itt*H 

32 REM 

33 REM tMMt«Kfctt# DRTRS SHLLE^ 

534 DATA 0.0. 2,g 

535 DRTR 0,7,3,1 




; ortr 0,9,4. 2, ?s ? 

' DRTR 9.5,0.3.24,? 
( DRTR 4,8. 9,6, 24. 4 
) DRTR 8,43,5.7,26,4 
I DRTR 2,33.6.8,30,4 
I DATR-9,9. 7,0-34, 4 
Z DATA 8.041, ig. 34. 6 
H DATA 11 ,0,o f? TS.fi 

t t<HiFi tsiia . e,BT-se a 

3 DATA e-ii.fl 13,36.2 
5 DRTA 8 15,12.14 38,2 
' DATA 9,8. 13 9,40,2 
5 PRTA 1316 19,0,3a 6 
= DATA 15.8.0-17,38/3 
3 POTR is, 9, 16.040,8 



y: ,- : ,-. aTf , 
=:.-.■ --.'Th 

=*4 r-flT-' 

= V". [i9« 
==,.- M :;. 
':!'-:- DRTP 
'i5S l" T '""'" 
^ rip-^ 
=169 DATA 

561 DRTR 

562 DATA 

563 DATA 

564 DATA 

566 DATA 

567 pRTA 



0,21,19 9, 38,10 
29,0,39 22,38,12 
9,23.21.0,40,12 
22,24,52.0,49.14 
23,0. 25, 9,40,19 
26, 0,0. 24. 36. 19 
9. 25, 33. 27. 36. 17 
28.9-26.0.38,17 
9,27.23,0.38,15 
30,0,0,28 36,15 
9. 29. 021. 36,12 
9.32, 32.0. 34, 12 
31 33,0,0,34,13 
32,34.9.26,34,17 
33.9,35.0.34,13 
7. 9,0. 34, 39, 19 



369 DATA 0,9,56.9,3?. 1 

570 DATA 38,9.0,0,32,15 

571 DATR 39.37.50,31,32,1,7 
372 OATR 40,38,0,0,32.10 
■57-' DRTR 4\ 13 9.5'?, 32.:? 

574 DRTR 0,49,0,9.32.6 

575 DRTR 1} 9,9,43.24,6 

576 DRTR 6,47,42,44,26,6 
377 ORTR 0.8.43,0.28,6 
573 DRTR 0,46,9,43,24.8 
579 DRTH 45,0,9,47,24. 10 
589 DRTR 43,52,46,0,26.19 
381 DRTR 8,49.45,0,28,8 

582 DRTR 49,59, ft, 0- 28 IB 

583 DRTR 49,0,51 .3>?-2i; :> 
384 DRTR 9,0,8.50,24,12 
585 DRTR 47,56,33,23.26,14 
386 DATR 0,54,9,52,24,14 
587 DRTR 53,35.8.9,24,17 
388 DRTA 54,0,0,0,24,19 
';Hf' !X1T'- 52,57-9,3-S £6.17 
598 DATA 36,8,0,0.26,19 
591 DATA 59.0,0,19.34,10 
392 DATA 0,58,40,60,34,8 

593 DATR 0,9,59,0,36.8 

594 REM ******* DRTRS VIVFIES ********* 

595 DRTR FRUIT, 10, 20 

396 DRTR FILET GRRNI.30,59 

597 DRTR CHAMPIGNON, 10,43 

598 DRTR SRHDUICH, 15,30 

599 REM ******* DRTRS ARGENT ********* 

680 DRTR TIRELIRE.20,35 

681 ORTR PIECE.3, 10 

602 DATA LIA5SE, 16.39 

603 DRTR BOURSE, 13,24 

604 REM ##«#*## DATRS TRESORS ********* 

695 DATA DIAMRNT.10, 16 

696 DRTA COLLIER. 19, 16 
607 DATA LIHGOT.8.17 
«08 DATR DIADEME,6,15 

609 REM ******** DATA? ARMES I M B HMMHMHU . 

610 DRTR FLECHE,3,9 

611 DRTR EPEE7, 10 

612 DRTR LANCE. 9, 16 

613 PATH PIERRE, 6, 11 

614 DRTR FRnHDE-4,e 

615 DATA SEFPE,9,15 

616 DATR DRGUEi'" 
61? DATA MRS5UE.8, 13 

618 DATA POWCHE.7,12 

619 DRTA HRCHE.5, 10 

620 PEM #*'#****** DATAS MONSTPES ****** 

621 DRTR CLUCK. 5, 3 

622 DRTR GNCM,5,9 

623 DRTR ZOMBIE, 9, 15 

624 DRTR DRAGON. 8- 15 
623 DRTA CAG-410 
f£<i DATA BALR0G3,8 
55? tJSTfl COBRA, 7. 9 

628 DATR BRLROG.'S-S 

629 DRTR VRMPIPE5.9 

630 DRTR TROLL, S, 11 

631 DRTR TICT£,G-9 

632 DRTR LUT1N,S,9 

633 DRTR SORCIER.7,12 

634 DRTR LOUGHPnij.7 " 

635 E-BTR ru-.zu ':'. . a 

636 DATA AIGLE,5 ■•? 

637 DRTR CPRPRUD.3 7 

638 DRTR FRELOH.6,9 

639 DRTA HEBDCLUS.36 

640 DRTA EmUS. 4. 6 

641 DATA LION, 8,12 

642 REM 

643 PEM ******* SOUS PROGRAMMES ##**##• 

544 PEM 

545 REM *■**«** RECOMMENCES -JEU #»»»#•# 

646 CALL EFfC0> 

647 CALL SPEECHt"Lj"ttUf) 

648 CALL RFC"V0ULEZ-V0U8",S) 

649 CRLL RFC"REC0MMEHCERT",I1) 
659 CRLL RFC"C0»HON 1=>0UIV',12> 
651 r«LL. I'EYUrc.TT . IF TT=9 



12 



5 REM *##**#*## ACHAT C8JET? ******** 

6 >1 CRLL flP< "V'0ULE2-vnije;».t4>: 
CALL AFC"L'ACHETER?".15> 

7 CRLL RF("C0=NON 1=0UI >" 161 

B CALL KEYirrCTTi IF TT=p then ^p 

9 IF CC=48 THEM 661 

9 IF rr=49 THEN 663 ELSE 633 

1 CALL EFFC0? CRLL RFC "TRNT PI?.'". 10' 
PRUSE 2 PAUSE 1 CRLL EFF'Pn &ETIIPN 

2 CRLL EFFC0'.' 

3 IF PP<FP THEM 665 

4 CRLL EFFC13-CRLL AFC "VOUS ETES" 5> 
CALL AFr"TROP PAUVRE ' " ■ 6 > PRUSE 1 
--FTUfM 

5 CRLL EFFC0SZ=2 CALL AFC "D'HCCOPD 1 
" ■ 4 V CALL EFFC 2 > RETURN 

6 REM ********* S.P PERDU' ********** 
? REM 

3 CALL EFFC 3 ) 

9 CRLL SPEECHCL. "SWJ 

3 r,-!, | Rf r ( .. vous ETES >i 45 

1 CRLL RFC"M0RT'",6)'PRUSE 1 

2 CRLL RFC "VOUS N'RVEZ".8i 

■' CH:.:. !-F---r--i--'. ■>■■:-■■:'-/-: M ■ ■:. ■ 

?'"■::. i. •■■!;-■■■ -Di:j'3i.T:- 
5 CRLL RFC "PIECE? DE",14) 
5 CRLL RFC"L'E> , .ELMRNOIR",165 
? CRLL EFFC 8) 

3 CHLL AFC "LA BELLE", 3 ) 
9 CALL AFC"PPINCESSE",3> 
3 CRLL"AFC"DEV»R-ELLE",7) 
1 CALL RFC'ATTENDPE",9J 

? CALL RFC "ENCORE", 11) 

3 CRLL AFC"LONGTEMPS",m 

4 CALL RFC "UN CHEVALIER" , 13) 

5 CALL flFC'DIGME DE Sfl",13) 
5 CRLL RFC"BERUTEE7",17) 

f PAUSE BGOTO 646 

3 REM ***** S.P RFF. VERTICAL ******* 

? REM 

1 SUB VCKARCM,L.H,K».Jt> 

1 FOR I"M TO H 

3 CALL COLOPC-JB) LOCATE CIA) PRINT Ki 

3 NEWT I 

1 SUBEND 

5 REM 

S REM ***** S.P DE I1ISE EN C-RRDE **** 

' REM ********* PTS VIVRES ***«*****« 

3 SUB MAC MR) 

) CALL EFFC 1.3) 

3 CALL RFC"RTTENTI0Nr',6) PAUSE .8 

1 CALL AFC-IL NE VOUS", 9) 

> CRLL RFC'RESTE QUE'Ml) 
3 CALL AFCSTR»CMA),13) 

I CHLI RFC'PTS ViVRES",13) 

! CHLL EFFC 2) 

3 SUBEND 

' REM ********* PTS FOR.CE *********** 

} SUB FOtFO) 

» CALL EFFC1.3) 

i CRLL HFC"ATTENTI0Ni",6)'PHUSE .8 

1 CRLL RFC'IL NE VOUS", 9) 

> CRLL HFC "RESTS 

3 CRLL RFCSTR«KF0),13) 

t CRLL RFC "PTS FORCE". 13) 

3 CRLL EFFCZ) 

; SUBEND 

t REM ********** PTS VIE ***»»•*#**** 

:■. ■?:.:?! ■■■;:;■"■.'■;!; ■ 

3 CALL EFFC 1.3) 

3 CALL HFC "ATTENTION!", 6) PRUSE .8 

i CRLL RFC"IL NE VOUS". 9) 

? CALL AFC'RESTE GUE'M 1 ) 

3 CALL AFCSTRKVIE).13) 

1 CHLL AFC "PTS VIE", 13) 

5 CALL EFFC 2 > 

5 SUBEND 

' REM ******* S.P AFF. OBJETS * 



729 SUB HFBCZB.S) 



*C% 



Q^-JLJ 



PILE POSITION 



Le danger ne vous effraie pas et vous etes expert en Repondre au ? par *. . 

pilotage de bolides. Ce jeu exaltant risque d'ebranler ^^ff^^^S^^mm&S £ VIWB 

VOS certitudes. premiere fois), 

n n.-i mm A gauche, affichage du nombre de bolides dispombles et a droite, 

bruno HAlaUIN nom bre de kilometres parcourus. 
> = Votre bolide. 

Mode d'emploi: - et " = autres vehicules 

Tout d'abord faire MODE 1.VAC (EXE), CLRALL (EXE), 10 INPAS ! = arbres. 

(EXE) MODEO (EXE) - RUN (EXE . # = Bordures de route. 



! CRLL COLORC "0MB" > 

1 LOCATE C8,l) PRINT Z% 

2 SUBEND 

3 REM ***** S.P AFF. COMMENTATES *I 

4 REM 

3 SUB AFCJ»,S) 

6 CALL COLORC "0RB" ) 

7 LOCATE CS, INTCC14-LEN'Z«))'2)+9> 
PRINT 7> 

8 SUBEND 

9 REM ** S.P EFFRCflGE C0MMENTRIRE5 ** 

REM 

1 SUB EFFCG) 

2 CHLL COLORC "0BB"> 

3 PAUSE G 

4 FOR I"2 TO 20' 
LOCATE CI. 9) PRINT " 
NEMT I ■ SUBEND 

5 REM ******** S.P RFF. SCORES ****** 

6 SUB SCCVIE,FO,PtR,F«) 

7 CALL COLORC "0Wb"> 

B LOCHTE C21,3)-PRINT USING"****", VIE 
9 LOCATE C21,16)'PRINT US1NG"»*»",F0 
LOCATE C21,27)'PRINT USING"***" ,MA 

LOCATE (21,27) PRINT USING"***". MA 

1 LOCATE C3L38) PRINT USING"***". FR 

2 SUBEMD 

3 PEM * 5.P STOP CLIGNOTEMENT LRBY ** 

4 REM 

5 SUB VLRCPO) 
S LOCATE CP.0> 

7 CALL COLORC" 1MB") 

3 PRINT "R" SUBEND 

9 REM.* S.P STRRT CLIGNOTEMENT LRBY t 

3 PEM 

1 SUB CLKP.O) LOCRTE cp,0) 

2 CALL COLORC "1PYF") PRINT "A"'SUBEND 

3 REM ******** RFFICHACE DESSIN ***## 

4 REM 

g PEM ******** PCMME **************** 
SUB i'nilHFL' i ,""'.LIEU.PO»POM».POMM«) 

7 CALL COLORf'lGBF") 

? IF VCLIEU»4 OR VCLIEUX1 THEN 
CALL COLORC "ICG") 

" LOCRTE ' 15 -1) PRINT PO* 

9 CRLL C0L0P'"1RBF") 

1 IF VfLIEU'". OP V'LIEL">4 THEN 
CRLL COLORC "IRB") 

; LnCRTE C161) PRINT POM* 
? LOCRTE C17.1) PRINT POMM* 
t SUBEND 

5 REM ********** M0N3TRE ************ 
-. -.ne Mnrt5TffE!CDA-'- ! :=Ci.Mijw:; ['31-St'i '■ 

? IF DR<55 THEN CRLL COLORC "1YB") 

ELSE CRLL COLORC "1YBF" ) 
S LOCRTE C13.5) PRINT M0» 
» LOCATE C16.5) PRINT MONS 
3 LOCATE CI 7. 3) -PRINT MONS» 

? R6W #!»* **■■■ AR6ALETE #****»*»**** 

3 SUB ARMESICV >.LIEM.Bp»,HRM»,RPME») 

4 CRLL COLORC "1WB") 

i IF VCLIEU5>12 AND VCLIEUX23 THEN 
CRLL COLORC'IUBF") 

5 LOCHTE Cie,l) PRINT FPf 
7 LOCRTE C 19, 1 ) PRINT ARMS 
3 LOCRTE (29, 1> PRINT ACMES 
3 SUBEMD 

a REM ******** TRESQR '**#*»****•***** 
..iL-iJ- ■rn-i.-.!.;,'"":L-:'=;r' j 

2 CHLL COLORC "1P.B") 

3 IF VCLIEU)>4 RND VCLIEUX13 THEN 
CRLL C0L9RC"1RBF") 

4 LOCATE (ie.5)PRINT TR« 
3 LOCATE (19,3) PRINT TRE» 

6 LOCATE (20,3* PRINT TRES» 

7 SUBEND 



FX702P 




LIST II 

! f='fBOL PtSHIO 

«':««!! 71 
1 m !=l 10 « 
S PP.T CSR (»!)H 

S(M)I 

4 KEST WB CSR 
4iS,"«EILLEB! S 
C08E:":S»)=* " 
*»»*"-.,,,,. " 

5 MP "MEFICULTE 

(143)",B:M- 
D: IF 8MS-S1SI 
THEM 5 
I PH "PRESSEZ .] 
. POUR JIllBFH" 

01! .8, POUR LE 



S RESLES"! 
r IF KEV*"J";IF I 

EltT TBEK 1 

8 IF KEY=T THEN 

15 

9 PRI :PRT "VS ET 

ES , ET SESEZ E 
VITER":" LES . 

Citts' ) - > . 

IB PRT "BEPL9CE«E» 
TS:",".J. POUR 
SflUCHE",".*. PI 
III UROITE" 

II PRT "BUT Wl JEU 
:","IL FSUT RES 
TER SUR L« ROUT 



Pi" DELIIITEE" 

12 PRT " Mil ' 
IVR-TTEIITIOK R 
US VIRBGES*:' I 
III HE SOHT PBS" 

13 PRT " PHNFMES 
!<>»,•% HEW 
E2 IE 3 VOITURE 
n« ET EH ": 

14 prt •mm i « 

S8 ET ill BW 
,"BM4HE ROUTE , 
..•,"8.ER6UIH" 

15 pri :fst ™fe;s 
ez use touche"! 



16 IF KEV="" THEH 

IS 
!? PRT :B=3:Ct="!l 

"*l:V=l:Z=l: 

E=l;61=",":L=ll 

IM 
IS Ft=' |i't«It(X, 

1MB.!M)«1 

<Z,1) 

i9H=e 

29 PRT CSR llMKl 
8-B)iCSRU;Ft»C 
CCSR LISJICSR 
ISilHT K;:H=K*1 

21 FIR 1=1 TO 

22 IF KET=""!HEXT 
I:60T0 2? 



23 IF H!4 THE* 27 

24 IF KEV="«"!IF L 
i!l!L=l*!:S0TO 
21 

25 IF KEV="J"; IF I 
!9;L=L-lr6OT0 2 
9 

2S m I 

27 K=Kt.5+<I-DJ,2: 

IF E=5OT=8»1 
2! If S=198;B=6tl 
29 SSB <4IWMI*L 

•2! 
39 HttIMf.:Z>2 

*1 
II IF W*l 
32 IF TiW!--'. 



33 IF Z>4!Z=1 

34 IF X=2!IF RRH1) 

<WM 

35 IF 7=2! IF RRH»< 
,3!V=1 

36 IF Z=2lIF R0HI5 
,7IZ=1 

37 IF Mi IF :=7<f 
=RBHIi60TO 39 

31 60T0 42 
39 IF H).6:X=1 
41 IF H<.4iV=l 

41 IF Hi, 4! IF Hi6! 
2=1 

42 Ff=' t!"«I«, 
1>*M(Y,1MIID 
(Z,l) 



43 IF0i6IIFRBHI> 
C.T5-IC5IBIM 
-liWTB 19 

44 IF U'S! IF RRHK 
(,25«;/39B)lU=U 
tl 

45 SB'O 1? 
Mf«M=l TO 19 
El PRT CSR L!"E"iC 

SR Li")'; 

83 m IsM-lMF 

8=1 THEB 189 

84 H'WiHlW 
HiRET 

188 t=*l!l*H FIH 

#iW!l"!«l 
181 FOR W TO 1? 



uzmmtn.iii 

183 NEXT T 

184 PRT :PRT ) 

185 IF IBT K>SX;PRT 

'RECtOR*!"iSflC 
:ST«T !KI I 

186 PPT "UKE OUTRE 
PBRTIE (0/H)'"! 

187 FOR H=l TO 108 
111 IF HYfO-ilF K 

EYt"H"lREI(T H:E 

m 

189 IF KEY="0"iPRT 

iSOTO 1 
111 PRT iEHO 

466 IF X=4 THEH.8B 

467 RET 



448 IF Y=4 THEH 88 

469 RET 

478 IF Z=4 THEH 88 

471 RET 

472 EOTO 88 
474 60T0 88 
476 SOTO 88 
478 61T0 466 
488 BOTO 468 
482 BOTO 478 
4S4 EOTO 88 
486 6010 88 
488 SBTO 88 
498 EOTO 466 
492 BOTO 468 

494 SOTO 478 • 



VIVE LA MUSIQUE 



Musicien de gfenie, grace a ce programme, mettez 
enfin votre genie a I'gpreuve. 



Michel LEGAILLERIE 



10 OPTION BASE 1 


320 GOTO 245 


IS DIN KC(50>.T<50>.ClH.&).E2<S-6).E3ta 


130 CALL CLEAR 


.6) , KC31) 


335 FOR 1 = 1 TO 50 :: KC!I>=7/ :: 


26 CALL SCREEN(3)i: CALL CLEAR :: DISPLA 


04 : : NEXT 1 


V AT!10.12):"PATIENCE'* 


340 60SUB 1075 


25 FOR A=l TO 53 :: READ B.BS :: CALL CH 


345 GOSUB 111S 


AR18-BS):: NEXT A 


35C 60SUB 850 


30 DATS 3;.. "FF".34. 304B4S8BEaBa8B9".35. 


355 DISPLAY ATi5,l) : "NOTE NUItERO 


"FF9O9O6O6O404OC.36- "FF01O10202O4O40S" . 


":"FIN CREATION. TAPER 00-ZERO" 


37. "FF 404 0202020202" 


360 X=l 


35 DATA 3B. , FFlO112222444444".40. , 'FFF824 


365 ACCEPT AT(5.13)VALIDATE<DIGI 


12121 11111". 41, "FF40404020201B07",42. "FF 




U110A0A0C1BEB" 


370 IF KO OR 1>50 THEN 365 


40 DATA 43."FFOO00OC0C0B0601".47. "FFOBOS 


373 IF 1=0 THEN 470 


10101020C".60. •FFFEFEFEFE".61. "FF 102O2G* 


3B0 ACCEPT AT(5.16)VALIDATE("ASD 




CALL HCH AR 



50 DATA 92."FFOO734E20201<:>l , '.93. "FF ^JSuii 

B8BBBD0A".94. •FFI050B9B < ?86DOfl' , 95. "FF09O 

90B0S287BFS" 

55 DATA 96. " 18183C3C7E7EFFFF' i , 97. "808080 

808080808". 98. "OFOFOFOFOFOFOFOF", 99. "FOF 

orOF-'FOFOFOF" 

to DATA iOO. "0101010101010101". 104, "FFF8 

702".105."0F".106.' , FF287BF9F9FS702". 107. 



70 DATA 112,"FF304BB4B4844B3", 113, , 'FF004 

BFC4848FC4B" . 114, " FF 0000000020 7 0F8 " , 115, 

"FFFSFOAOBOB080B" 

75 DATA 116. "FF80B080VOAOCOB". 117, "FFB08 

OSOB08080B". 1 IB. "FF000000002071F9", 1 19, " 

FF88502" 

80 DATA 120,"FF000000080BOB08", 121,"FFB8 

DOAOBOBOBOS" , 122."FF000000FEFEFEFE",123, 

"FF0OOOOO002O53BB ' 

85 DATA 124, "FF2070FBFBFBFOA",125. "FF90A 

OCOB" . 126,"FFaoeoSOB",127. "FF2070F9F9F8F 

DA" 

90 DATA 12S, "FF0S0C0A09OBO80B" , 129, "FFOB 

OBOBOBOB080B", 130, ■'FFOBOB0BOB2B5BB8" 

95 CALL C0L0R<9,2, 16) 

10S FOR 0*1 TO 5 

110 CHI, 01 = 129 :: C1C2,Q)«120 :: C2<2.G 

)=129 :; C2(4.E)=117 :: C3(3.Q)=117 :: C 

3(4,01-126 

115 NEXT 

120 FOR G=l TO 3 

125 C3(1.0>=lO4 :: C3 ( 1 , CH3) =1 19 :: C2<3 

.Q)=115 :: C2(3.E+3> =121 :: C3(5.Q>=62 : 

: C3<5,Q+3)=33 

130 NEXT 

135 FOR 0=1 TO 6 

140 READ A.B.C.D.E 

14S C2U.GD-A :: 53(2,6)5", iS CH3,S)=C 

s: C1(4,G)=D !i C2(5,0)=E 

155 DATA 95,63.114,124,64,95,63.114,124, 
92,109,106,118.127.92,130,91.111.93,122 
160 DATA 110.107, 123, S 
112,60 



WETYU0P")SIZE(-1):R« 

385 H=ASC(R*>:: K2=K-5B :: KC(I)=K 

390 GOSUB 970 

395 CALL LOCATE (#1, 145, CF) 

40O ON NN GOSUB B75, BB0,B85, B90. 995,900, 

905, 910,915, 920. 725, 930, 875,880,895, 890, 

895, 935 

405 DISPLAY AT [5, 161 SIZE 1-9) :NS 

410 ACCEPT AT(6.B)VALIDATE("123468")SIZE 

(-1) tD 

4KS T(I)=D 

420 CALL S0UND(T(IJ*250.N,0J 

425 GOSUB 14B0 

430 GOSUB 1520 

435 CALL LOCATE (*1. 145. 16) 

440 IF X<9 THEN 460 

445 FOR D=l TO 120 :; NEXT* D 

450 GOSUB 945 

455 X=l 

460 IF 1=50 THEN IM=50 :: GOTO 490 

46S GOTO 365 



:: FOR D=l TO 30 :: 
HCHAR(7. 14,32.5) 
740 FOR D=l TO 10 : : NEXT 
745 NEXT I 

750 CALL VCHARI9. 16,33.5) 
4, 15. 32. 1 i : : CALL LOCATE (Mi , 145.16) 
755 NOTE=NOTE+1 :: IF NQ-,20 THEN 6ZO 
760 CALL HCHARd, 1,32. 224):: DISPLAY ATI 
4,1):"DICTEE TERMINEE" 

765 DISPLAY AT!7.4):"V0TRE SCORE "INCITE: 
■' SUR 20" 

770 FOR D=l TO BOO :i NEXT D 
775 CALL HCHARI4, 1,32, 128);: DISPLAY ATI 
3.1) t "1-AUTRE DICTEE" :: DISPLAY AT(5,11 
:"2-RETDUR AU MENU PRINCIPAL" 
780 DISPLAY AT(7,5):"vaTRE CHOIX" i: ACC 
EPT AT 17, INVALIDATE!" 12") SIZE (-1) BEEF: R 
785 CALL HCHARI3. 1,32,160):: ON R GOTO 6 
50, 245 

790 DISPLAY AT(7.1):"ERREUR..." :: FOR D 
=1 TO BO :: NEXT D 

795 ON H GOSUB 375,885.395,900,910,920.9 
30,B75,BB5,S95 
BOO CALL HCHAR(5,1,32, 16) 
805 DISPLAY AT 17. 9) SI2E 1 -19) ; "C'ETAIT UN 

"INS 
BIO ON H GOSUB 975,980.985,990.995.1000. 
1005,1010,1015. 1020 

B15 CALL VCHAR(9. 16,33,5):: CALL HCHAR ! 1 
4,15,32,2):; CALL LOCATE 1*1. 145. 16) 
820 CDL=16 :: 0=4 :: TT=0 :: CALL LOCATE 
1*1, 145, CP):: GOSUB 1530 
825 FOR B=l TO 500 :: NEXT D 
830 GOSUB 945 
B35 CALL HCHARI7, 1,32,32):: CALL LOCATE I 



4 70 CALL HCHAR 

475 DISPLAY AT 

LA ":"DERNIERE 

480 ACCEPT ATg 

2>:IH 

485 IF II-KO OR 

490 CALL HCHAR 

495 DISPLAY AT 

E" 

500 .DISPLAY AT 



UN AUTRE" 

515 DISPLAY AT 

INC I PAL" 

520 DISPLAY AT 

525 ACCEPT ATI 



530 ON R GOTO 535,545.1390,335,245 
535 CALL HCHAR' 
540 GOTO 490 
545 CALL HCHAR 
555 CALL CLEAR 



i CKl.l 



2,61=33 :: C2<4,6>=33 : 
170 C3(3. 1 
)=33 1 1 C3I5.I 
175 FOR J=l ' 
180 FOR J=l 



2B : 



:: 03(3,6 
NEXT J 



"VDUS POUVEZ JOUER" 
L KEY(O.K.S) 
TT-t-1 t: IF TT-20 THEN CALL LOCATE 

TTMOO THEN 595 

S=0 THEN 570 ELSE GOSUB 960 

N,0)ei CALL. LOCATE (tt 

GOTO 570 



<I)=0 



195 FOR 1 = 1 TO 46 :: READ K.C I I ) , 

200 FOR 1=47 TO 50 :: KC 1 1 ) =77 : 
.04 :: NEXT I 

205 DATA 75,4.74.1.75.1.76,1.75.1,74.1,7 
2, 1,75,3,75,1,72. 1,75,4.77,1.74,1.75. 1.7 
1,71,1,68,1 

DATA 70.1.71.4.77.2,70. 1,6B,1,Q3. 1,6 
1,70,1,71,2,72.1,71,4,77,2.72,1.74. 1,7 
1.71,2 

.5 DATA 70. i, 68, 1.B3, 1,68, 1,83, 1.65,4,7 
7,2,65,1,33,1.68,2. 70, 1.B3, 2, 71, 6 
220 CALL CLEAR 
225 GOSUB 1075 
230 60SUB 1115 
235 GOSUB HBO 

245 CALL DELSfRITElfU) : ; CALL CLEAR 
SPLAY ATU. 12):"MENU" 
SPLAY AT(5.1):"1 JOUER" 
260 DISPLAY AT<7.1):"2-D1CTEE HUSICALC" 
SPLAY ATI9.1): "3-CREATION MUSICALS 



590 CALL SOUND 

I,145,CP>:: TT< 

595 TT=0 

600 DISPLAY AT 

I NCI PAL" 

605 DISPLAY AT 

610 DISPLAY AT (6, 
615 ACCEPT ATI6.2: 
) BEEP: R 

620 ON R GOTO 245. 
625 CALL HCHAR ( 1 , 
655 CALL CLEAR : : 
E MUSICALS" 



640 i 



i 107: 



270 



BTRE":"SUR I 
SPLAY AT 114 
RE" 



1) : "4-ECOUTER 
ICHIER" 

1): "5-ECOUTER 



I AIR E 



SPLAY AT122. 13: 
285 ON WARNING NEXT 
290 ACCEPT AT<22.25)1 
Et-1)BEEP:R 
295 ON R GOTO 355,63! 

300 call clear 

305 GOSUB 1075 



'AIR EN 
VOTRE CHOIX" 

IDATE("12345")SIZ 
30.. 1275,300. 



645 GOSUB 1115 
650 DISPLAY AT 
LA" II FOR D=l 
□UND(2000,440.I 
655 FOR D=l TO 
660 CALL HCHAR 
665 NQ=0 ! 
67D N0=ND+1 :: 
675 ON H GDSU9 
1005,1010.1015, 
6BO FOR Z«l TO ! 
685 DISPLAY AT C 
"I MO :: FDR D=l 
HCHARI3, 1,32.32) 
690 FOR D=l TD 15 
695 NEXT Z 
700 CALL SOUND 120' 
O :: NEXT D St Dli 
F'ONSE" 

705 CALL KEYtO.K.: 

00 THEN 795 : : IF 

710 CALL HCHAR 

.5 K2^K-5B 



1.1.32,224): : GOSUB 945 

1,1): "TAPER LE NUMERO DE 

NOTE" 

,16) VALIDATE (DIGIT) SI7.E1- 

Itt>50 THEN 480 
1,1,32.224):: GOSUB 945 
1,1):"1-EC0UTER L'AIR CRE 

2, 1):"2-C0RRIGER L'AIR CR 

3.1): "3--L'ENREGISTRER SUR 

4,l)l , '4-EFFACER,EN CREER 

5,1): "5-RETOUR AU MENU PR 



.,32,22' 
.,32,22' 



GOSUB 1 1 81 
GOTO 350 



i-RETOUR AU MENU PR 
J-CONTINUER A JOUER 



,32,32):: RANDOMIZE 
E-0 

H=l+INT(RND*10) 
975, 980, 9B5. 990.995. 1000, 



"ATTENTION. .NOTE NO 



5.1.32,16) 



720 t 

725 C 



) 970 



I OR K2-31 THEN 705 
TT=0 i : CALL LOCATE 



840 



:, 16) 

N0(20 THEN 670 ELSE 
SPLAY AT!1, 10):CHR*(1 
" ";CHR*!1291! " "IC 



B60 DISPLAY AT(3,10):"h h t 
B65 RETURN 

875 N$="DO" :: RETURN 
080 N*="DO DIESE" :: RETURN 
RETURN 



) N*="RE I 



IESE" 



900 Nt=' 



RETURN 

RETURN 
"FA DIESE" >■ RETURN 
910 M*="SDL" :: RETURN 
915 N*="SOL DIESE" :: RETURN 
920 N*="LA" : : RETURN 
925 N»="LA DIESE" :: RETURN 
930 NB="SI" i: RETURN 
935 N*="SILENCE" :: RETURN 
945 FOR L=9 TO 13 



;i4,5,32,22: 



HCHAR(L,6,33,; 
RETURN 



' K2;l OR ► 

4 M(K2)GDTC 
1015 



1045,1050, 1055, 
'5 N=262 : i 

j: RETURN 
10 N=294 :. 
• :: RETURN 



CP»: 



985 N=330 ! 
=1 :: RETURN 
990 N"349 : : CF 
-2 :: RETURN 
995 N=392 .■ : Cf 
=1 :: RETURN 
OOO N=440 : : I 
'=2 :: RETURN 
005 N=494 



010 N=523 : 
p=4 :: RETURN 
015 N=5B7 ! 
RETURN 



N=659 
: RETURN 
N=277 : ! 
RETURN 
N=31 1 : : 
: RETURN 
N-370 
: RETURN 
N=415 : : 
: RETURN 



CP=22S 

CP=92 : 



050 N^554 ! 



r_F = 2'.-4 



055 N=622 : : CP-220 

=3 : : RETURN 

060 TT=0 

065 N=30000 i: CP=16 II L=9 

P=5 :;, RETURN 

075 CALL CLEAR : : CALL HCHAR 

080 RESTORE 1105 

085 FOR Z=l TO 10 

090 READ LI,CO,CA 

095 CALL HCHARIL1 .CO. CA) 

100 NEXT Z 

105 DATA B.3.34,9.3,55, 10,2.. 



125 NEXT L 
130 FOR L=-l = 
135 DISPLAY 



;65 CALL SPRITE(*1 T 
■70 RETURN 
;80 OOSUB 945 



1 TOUCHE 
1 TOUCHE 
'NOTE 



?1Ti 


CALL 


SOUND (T 


! I ) *25G 


,N, 


?lf. 


G0SU1 








7V*» 




JDCATE 


»1,145, 


■i-i 


??fi 


GOSUI 


1520 






?x> 




9 THEN 


1245 




233 


GOSUE 


945 







240 X»l 

245 NEXT I 

250 FOR D=l TO 400 :: NEXT D 

255 GOSUB 945 

260 CALL LOCATElltl. 145.16) 

265 RETURN 

275 CALL CLEAR :: CALL DELSPRITEH 

280 FOR 1 = 1 TO SO :: KCIIH-77 :: " 



04 : 



NEXT 



SPLAY AT (3. 1) : "INDIQUER LE NUMERO 
VOTRE FICHIER.2 A 255" 
290 ACCEPT AT(7, 14) VALIDATE (DIGIT)BEEP: 



THEN 1335 
TO IN 



305 INPUT * 
310 IF MUS< 
315 INPUT #a: 
320 FOR I' 
325 INF'UT *A: 
330 NEXT I 
335 CLOSE #A 

THEN 1360 

345 DISPLAY AT ! 10.2) BEEP: "ERREUR, VERIF 
R LE F ICHIER" 

350 FOR D-l TO 300 ■■ NEXT D 
355 GOTO 1275 
360 CALL CLEAR 
365 GOSUB 1075 



375 GOSUB HBO 
380 GOTO 245 
390 CALL CLEAR : 
395 DISPLAY AT ! 1 
E": 1 VOTRE FICHIE 
400 ACCEPT ATI7, 



: CALL DELSPRITE(#1) 
.1) j" INDIOUE LE NUMERO 
;r ,2 A 255" 
14) VAL*IDATE (DIGIT) BEEF 

AIR>255 THEN 1400 



AIR 

405 IF Al 

410 MUB-AIR 

415 OPEN ttAIRJ'CSl". INTERNAL. OUTPUT.! 



420 PRINT #A: 
425 FDR D= 
4.30 PRINT #a: 
435 FOR 1= 



:R:KUS 
TO 30 :: 
:R:IM 



465 GOSUB 1 

470 GOTO 495 

430 ON TIDGOTO 1485.1490,1495,1500,150 

1,1505, 1505,1510 

485 Q=l 

490 0=2 

495 0=3 

500 0-4- 

505 0=5 : 

510 Q»< 

520 X=) 

52S'C0L=3»X 

530 IF NN-1S THEN 1540 

535 CALL HCHAfi(L,CDL,Cl(P.Q>) 

540 CALL HCHAR(LH.C0L.C2(P.O) ) 

545 CALL HCHAR1L+2,C0L,C3(P.Q)) 

550 ON NN GOTO 1560.1555.1580,1565,1580 

1580, 1565. 1580, 1570, 1580,1565, 1S80.15BO 

1575, 15B0, 1575.1580.1580 

555 CALL HCHAR(L+1.C0L-I 

560 CALL HCHAR (L+2.C0L-: 

565 CALL HCHAR(L*2,C0L-: 

570 CALL HCHAR(L+1,C0L-: 

575 CALL HCHAR(L,COL-| 



HEBDOGICIEL 27, rue du Gal-FOY 75008 PARIS 

VOUS POUVEZ VOUS ABONNER AU TARIF PREFERENTIEL DE 420 FRANCS POUR 52 NUMEROS AU LIEU DE 
52 x 10 =520 FRANCS. ABONNEMENT POUR 6 MOIS : 220 FRANCS. Pour I'etranger: + 80 F. pour 1 AN 

+ 40 F. pour 6 MOIS. 

NOM : MATERIEL UTILISE : 

PRENOM : CONSOLE : 

ADRESSE: PERIPHERIQUES : 

REGLEMENT JOINT : □ CHEQUE DCCP 



COLOMBIA 



Si scratcher une navette spatiale de plusieurs milllers 
de dollars vous amuse, alors essayez vlte ce jeu qui 
consiste a poser Colombia sans casse. Ce qui n'est 
pas si facile, car pour reussir vous ne disposerez que 
des indications fournies par vos instruments de bord. 

Laurent LE MAGUER 



18 REM I 
20 REM * 
30 REM * 

40 PEN * 
50 REM * 
6ti PEN ■+ 
70 ppM * 
30 REM * 
90 REN * 
.03 REM* 



MISSION SPHCIRLE 
■ C L M E I H - 



L.LE MAGUER ■?, S.CUJtLQ 




A suivre: 

En raison de la longueur In- 
habit uelle du listing nous 
passe rons ce programme 
en deux fois. 



.,..-, -T;.-,: a ., v .;:^.: v :;. : ,,,., 

120 i 



i ( ;.0 , r' ■' ■ '■; r-,,1,1 

170 POKE 53281.| C ' POKE 532S0., It. PRINT":]* 

130 PRINT • 

•I • 



#«ttt##S## PRESENTATION tt######ttt 



•RIHT-T 
230 PRINT'"] 
219 PRINT"! 
22Q PRINT"! 

239 PRINT" I 

240 PRINT" 
250 PRINT" 
260 PRINT PRINT"! 
270 PRINT" 

230 PRINT" 

293 PRINT" * 

300 PRINT" 

310 PRINT"! 

320 PRINT"! 

330 PRINT""] 

340 PRINT"! * 

350 PRINT"! 

360 PRINT"! 

370 PRINT"! SUITE 

380 



t t ■ ■ «••* t 4 

i ••• *•• ••• ••• *** ••• at* *** ••»' 

MISSION SPHCIRLE 

JCOLOB I R! 



XXXXX 

y. xxxxxxx>:::o::«x 
XX xxxxx 

XX xxxxx 



~>'E3PRCE' 



XXX 

xx;« 
xxxxxx 

: xxxxxxx 
KXXXXXX 

XXXXXXXX 

xxxxxxxxx 

XXXXXXXXXMI" 



39B GET R* IF R*<>" "THEN390 

400 : 

410 REM********** 2EME PRGE * '. **t 

420 PRINT-IT 

430 PRINT PRINT" NRSfl" 

440 PRINT" MISSION SPRTIALE 3 COLOMEIR B 

450 PRINT PRINT" EN CETTE RNNEE 19S1.V0US PRRTICIPEZ 

466 PRINT" filJX ESSRIS SECRETE 3U NOUVER! VEHTCULE " 

-;;':; F!-[Nf 2;ii;Pn/HINLR NRVETTE SCOLOMBIAB. " 

480 PRINT" VOUS RVEZ ETE NOMME 3PIL0TE B'ESSHISl 

490 PRINT-'/O-PE MISSION POSER VOUS MEME LR NRVETTE" 

506 PRINT-RPRES UN DECGLLRGE TELEGUIBE BEPUIS LR " 

510 PRINT "TEPP!-:. VOUS O..H ITR 1 B'JEPEZ fit MSI fl LA " 

520 PRINT"DETERt1INRTI0N BE LR TSBJRGTBIRE IBEALE " 

530 PRINT" POUR LE RETOUR RU SOL. ATTENTION VOUS 

540 PRINT'TILOTER UN PLRNEUR ' {SUITE >'ESPRCE'J" 

550 : 

569 GET RflFRfO" "THEN 563 

570 - 

560 N +f 3EME PRGE #********•# 

590 PRINT PRINT PRINT" CE TPRVRIL EST RSSEZ FACILE POL 
690 PR I NT "NATS VOILR ■ UN PROBLEMS TECHNIQUE VOUS " 
S10 PRINT" EMPECHE BE VOIR LR PISTE. VOUS NE DISFO- ' 
620 PRINT"SE3 QUE r, r.irlF ^.PRESENTATION SOMMRIRE BE" 
S30 PRINT-VOTRE RPPRREIL PAR RAPPORT R UNE POSI- 
640 PPINT-TION B'RPPROCHE FIOUREE COMME SUIT- 
650 PRINT" / \ 

66% PRINT" / NRVETTE \ 

670 PRINT" / \ 

680 PRINT "IMSISUITE-— > 'ESPflCE' 



) GET R* IF R$<> 



"THEN700 



«ft#BS#*t INITIRLISATION ######## 



740 ■ 

750 REM**** IrlhRMSION MIS TAELERUX *** 

"'60 ^0^=13230.0 ROKFSSOpj , y PRIHT'-M" 

770 BiHO^ai;',p>:c"n>.^a0>,R/:<i0.',o>:(:EO,ij>;^s:-,FRf<^4?.ST<4l? 

730 Rtm&-,-- MO'.'VFMLNt:::. HE CURSEUR **** ** POUR CONSERVE R L ■ RFFICHRGE 5 

790 itt^-'fiimmmmmmsaitnnwr' 

300 I2J=I1*+ l»»j»P»M»P*MM»»r 

sle I3*=ii*+°i 

320 I4*=Ii$+"t 

330 I3S=I4*+"H 

343 I6$=I3J+"J 

85Q I?*=I5*+"I 

860 REM***** 1/2 TAELERU DE BORD ***** 

870 REM********::** INFTPIE-UP ********** 

839 PR INT 'T 



"TRB^SS)' 



i ■ a s i a h ! 



/- S I M J L R T E U R 



/ INRVETTE SRFiCIfilE COLOMBIA) 



390 PRINT 
900 PRINT 
910 PRINT 
920 PRINT 

930 PRINT 

940 PRINT 

950 PRINT 

960 PRINT 

970 PRINT 

930 PRINT' 

990 PRINT". POUR CGNTINUER APPUVER SUR UNE T0UCHE. ' 

1330 REM*-********* -■HklniiLL-. ********** 

1610 OOTO103R 

1020 ijETR-f ■ IFHt-=""THENlO20 

10 53 G0TQ3i6O 

|04fl RT=l ;pRINTM" 

1050 LB=3 LC-0 VH=12 VZ=Q ZZ-0 V=i VX=1 

;06^J PF.-I.Ty"^ 

10^0 ^!;.mb 1,-j VSTJI.ERU Df. SOPIi --^H- 

10S0 REN********** SUPERIEUR ********** 

sr ■_ 



PRINT' 
1110 PRINT' 
U20 PRINT' 
1130 PRINT' 
1140 PRINT 1 



COL UNE: I fl KEARa ' 



vrw.- 



rswa»i f/f 



1150 PRINT" STBT 

1 !^3 PR I NT "a ■ • ! OfloG 

1170 PRINT" S ■ I '- 

us* ppiNT"snsi, 

1190 print a uwnivj 200 ■ 
i.-33 RRinT-a ■ -mm 

lliie IFP T =0THEN1020 



I laRLTIMB L5L1I 13TB" 

II I S_B I ^ST^" 

i too 00 i a_si a:iB" 

3— W 3EB" 

, .-a fig" 



1220 
;2so 
124S 
1250 



12SS 

1300 
!J1« 
1320 
1339 
1340 
1350 
1360 
1370 
1389 



1490 

1 503 
1510 
1520 
1S30 
1540 
15S0 
1560 
1576 



■■ ! i : ■ . : FN BE LR FIS7E *«.*« 

pRiNT^HMiflaKWflfflMMMia.' — iam/rv— ^■^-v-^^'-^ll/-^l/-^l^'-^^■-^^'-" 

print 'siBp*iii»(iiiiiH-^H^fflH---jaii--''j«hxMH-j(ii-\ffli vn " 

PRINT"HEfi!lBrj! T l T SW , «iiMr 

!■'■;, ■■,:.'■, VH' 

DRTA133 

DAT R 134 

DATA 135 

BATA136 

DATR49, 50.. 51 , 43. 48. 46, 45. £1 

DATR99. 69. 63. 67.. 64. 70. 82, 100 

EATR"-". "-',"-", ■■-",■'-",-'_","_", •■_■■," IBT"." URT"." IBT" ."! 

DRTR "M_","ja~"."» IKT","M HHT", "S IBT".. "SB)-". "M9-", "SB-", "i 

REM***** LECTURE BES DRTflS ******* 

F0RI=1TG 1 IREHDEKCI) NEXT 

fori=ito i-RERDp;;a; ne;:t 

F0Rt=lTO l'R£RIISXa> NEXT 

FORI = 1TO i:RERCR;;a) NEXT 
i"riR! = iTrii:.; F;:EflIn:^<I> NEXT 
FOfSt-ITSe i^:;;iriu:;rK)NEXT 
F0RJ=lT024RERDFfl*':j) NEXT 



E:-ili-;.^RNDClT3 
H---23n:?.tii-200j0*RND£it) 

':^300-40*PNB<ii> 
TA=TI 



1610 
1S20 
1638 
1640 
16S0 



1710 
1720 
1730 
1740 

1750 
1769 
1778 
1780 
1790 
1300 
1810 
1S20 
1330 
1840 



1910 

1 ?1'0 
1930 
1940 
1950 
I960 
1970 



23 30 
2140 
2150 
2160 
2170 
3133 
3193 
-303 
3310 

2230 

33-10 

2250 

-360 
3.^0 



3:00 
3 310 
2320 
2330 
2340 
2350 
2.;*y 



1 -150 ^OO i 



fl*=' 

0ETW'1FC*O""THENR*=€» GOT0152B 

IFfl*=""THENfl$=" " 

(WisflSCSfW) 

FORI-1T0 1 : IFRXsOXCI>THENVH=VH-2 

NEXT 

F0RI=1T0 1 IFfl5WX<I>THEHVH=VH-l 

NEXT 

FORI=1TO i:IFflK=QX(I)THEHVH«VH+l 

NEXT 

FORI = lTn 1 IFAj;=R^a)THENVH=VH+2 

NEXT 

F0RI=1T03 I IFflKsGMC I )THEHLGslMT< 1/5) 

NEXT 

IFVH>24THENVH=24 

IFVH<:iTHEHVH=l 

DT=ai-TR)/60 TR=TI 

VR=VH-6 IFVR<0THENVR=0 

VR=9-YR KF=<KF/S0J+VR*.555 

FL-W IFVH>6THENFL=7 

FL=7-FL 

v=V*a-.004*KF-.805*FL-.007S*LG3 

EsE-DT*CV/3600i 

■:■■ 1 '■.!!]! .:■.....■ ..■■ 

3 ! 33 -■■::■ 
I m 30THENS=2000B+':S-20000)/3. 5 

;■:■ :-v3O6THENS=30900+t:S-30000)/10 
S-S*(l-Vfl/8.5) 

S-RSS'S^a-KF.'SO'-RL.v^^^i.iJiSOO 
Sl=-S IFH=@THENS1=0 VH=12 : PRINTI4*"-T1 
PRINTI3$"II —■■■!■ 10HK IHT<S1/10>? 

H::|N-j.i!*Sl/60 

IFH-C0THEHH=0 

IFH=0THENPRINTI3f"ICN ORB. " GOT0207O REN++- 

L=-';V*HJ/C3*60) 

E6=E+L 

IFE6<-2. 5THENV=1 OOT01940 

IFE6<-2THENV=2 : GGTO1940 

IFE6<-1 . 5THENV=3 : G0T0194O 
IFES<-. 9THENV=4 G0T01949 

IFE6>i.6THEN , r , =7 COTQ 1341.1 
ir£.6,.SIiCNV^,o U0T:jl'340 
!i-Et--.-0rHENV=5 
IFS1>=0THENV-1 
IFV = vXTHEMi9:''u 

vx=v 

PRINT"! 

FORI=1TO10 PPINT-I 

PRINT"ffl". F0RI=1T0V PRIHT"«". NEXT 

IF7::-3SOTHENLO=0 

print , kMtii»MM*wmraiai!t<iiia' r «-wamiiiL- — ■:*• • ** 

IFLG=1THEN2040 

IFL0=1THENPRINTI2*"BI" IUD9 >l "gflfflSMiiil Ml MU^BIIMWktf 1 

iFLG=0THENPRiNTi2»"auPMWii ssmmmmtn tii ininnrTk" 

E2=E IFE<0THENE2=-E 

EA=INr(EZ> EB*E2-Efl 

i_u;.-:,li-J- Zfy EB*-.-srF:f: EB irLB-,.OMHLNEB?- : -UOOOO' 

EU-RICHT$':" "+RI0HT*(ER$,3>.3) 

ESJ=MIB$':EE*.3..2j 

PRINTIl*El$' , aB ,, E3S 

REM*** PISTE HORIZON RRTIFICIEL ** 

iff 3ThENrprrin-u"a:;r: :^.i:v rf-i +■> ^- >■■- * ic-friii. umn.;.;.e ■ 

I F F -.;0T HENPRINT 1 4* "»&.' 1 -M" GOT02 1 70 

IFt<.5THENPRINTI4S"BS / t \ ■"GOTO2170 
PRINTISf" 1 "V1=V 



J- 1 943+ INT.: .. v 1 -125.3+3/38. 7? 

lFvi,-t. r :,0THEf'rnKE1975.295 G0l0S2:Jt' 

IFVi;:53OTHEfH : '0KE197: : :.^49 00702330 

I F VI 2 1 :L^i HC- tlF-rn- R 1 943 . 339 001 L'i'SO 

; i- v K 1 : :•■, I ML ! IPi>; t. J , 239 OOT02230 

POKE J. 249 

HZ=H/130O 

HR=INT(HZ) HE^HZ-HR 

HO?-- ■■ + :3TPj,nO-. HBi=-TRf HB>IRHE'3 

HU=RI0HTf(HR£,2) 

l-OI-NIUSfHB*. 3.2, 

PRIHTI3*H1*" "H3S 

in-i=i:i!HEHPP[H-! ESfOO 00 ■ 

H:i-24-H/167 

]FHvaTHENHM=l 

I.FHV>24THENHK=24 

IFH-::599THENFPINTI7i--":asa ■' 

I7*Ffl*<HB.> 



01THENHB3i■ , t:0!;O0 , ■ 



IF£> 



iNDVH=YZTHEH27l0 
IVEMENTS HORIZON 




A SUIVRE. 



BALL 



ZX81 



Emules de Mac ENROE et autres CONNORS, essayez Mode d'empioi: 

d'6galer VOS Champions favoriS en disputant des par- Les instructions necessaires sont incluses dans le programme 
tip<! arhamppR rip tpnnis rontrp vdr ami<! BASIC. Ce programme compte 3K de langage machine el 3K de 

lies acnarnees ae tennis conire vos amis. ^ Basjc Tout ai £ orti _ ct ^ ez ^ ijgne 1 rem de 3000 octets, puis 

Genevieve DEUX tapez le petit programme qui i/ous permettra de rentrer un a un les 
quelques 2980 codes machines, un vrai plaisir Suppnmez ensuite 
les Itgnes 10 a 60 devenues Inutiles et tapez le programme BASIC 
Le match peut commencer. 



SUITE DU N°68 



al|f}^M E£RND /_*47_h PLOT 
6442 -1FTBN --I/ BOISE E£RN0 



. . 0L.S TON E£RND'. 

,7t CLS TRN .■ - 5 , DD0DD..S 

wji :><■■ -£PP<0."SGN r ■■■■—■■ 
STRs GOSUB "£PMC'. 75Gi-; 



LE TufiH BaSN LEW 9 RETURN HSN : 
RETURK BflSN PRU5E 'UJ* INKEY* f 
, J 1 RN CLEAR RSN -? RETURN UNPLG1 
•J N G~ RETURN R«ND «SN R' RETUt 



I REM RND'"''?. " 
I 4THB »5 *|*V 



l_50B_RND^RETu 



,D0DDD. 



ORD PRINT £S£-i 

il'i '.:.■ riVT 

keysurrndm_ , inkey*u9Rndm|_; 

:. RETURN BflSN fclNK&i, ... 
BflSN lINKEVS RETURN BASH HINKE 

0rP',l-i.; ! PiSU PP;PPP ji ■ 



rfef» 



Vi-:i-: , :;'-."sii--urj-J"i3si 
, p^- 

'_ RETURN RETURN RS PUT R-SN CO£J£ ' ■■ 

,EYS RETURN CLERK SSM I ODE ^ RETURN. PLOT BiM (_- 

. ■ ■ - ■_!"- :■_■■■ i lt_ .' l, Pp-rur^: ..pP- RSN RRND e "" os " **- «".,*,.., " n=., 
. — rwi , =RSN pj RETURN 






STOP INKEY 



Int «!. 

-■- u.-,°IMi--£YS RETURN GQSUB RSN 
I RETURN PRINT RSN i-PI RETURN i 
■OOP OS!-! .;pr--v u^INKEV* RETURN 
GOSUB RSN POKE PI RETURN PRINT I 
SN POKE PI RETURN PRND R5N PQUE 

PIP ' -UU-"iKKEY j RETURN FOR ' 

DE PI RETURN NEXT RSN CODE. . , 
TURN CL5 R5N CODE PITT^U/lNKEY' 
RETURN INPUT RSN 1PI RETUF- ~ 
RSN «PL RETURN IF I — ' 

NKEY. RETURN RETURN 

INKEYS RETURN <-_■_?■■ asm cur. 
iO'ipi, ■:■■■,:■.. Mrvuiii-i p pip; f c-i -.;:■■ 

r^-'L^iNKEYJ RETURN CLERR RSN < = 

■-■■■ur- r --'--'-r.;\, fiLOu!";-., Ci.i-:nr: I'tsi-s ; 
■ ■■■■■—- :Yr; nfTun.N clerr rsn 

'INKEYS RETURN RP.ND fi 



LOT 



P I->-?"?U,!"TNKEY _ 

:■ OPI^->U"IIMKEY: 
'PI-J-J-T-in aWEYB 
PI?7?INT 45 2F' 



INKEYS RETURN L 

INKEY rktllNKBY JTyJBLN 
NKEY*?uiTNKEYSX->YiCN HI 

upinkeys return rsn f 
'inkeyj:— *- 



??UM''INt 

. Return PTH-1& '-,;•!■. P' RETURN P EYt Ja'L'-'X'-ii-.Kv ■:■;.. !■•! -■!;:■ RND^B ,? 

lit £$*, p_- Riir.jp.--' M ! -!i:-o -i -. m - ■ '.3- :..!■! Ai^w ■■,.,'. ;.'■■■' ■ ^"' 
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110 PRINT flff &t_Sj 

IPO f-hNI: ■,.HR Ip'I-.p 

LIO ■■'! ' 

:i: .0:',6 1000 



_ lETURt. _. 
RSN HPI? ,, -'LtfI 
■ RSN IPI-'-'fUj 1 
■■ -TOE PI"" 



^J.NI-.E^'-'- 
■+ INKEY (-?1-'Y"1>1 

■ 1 gp -- 



' i'p._i '.."■.'is?. ■"■■.'91! 
*?B?LN REM RNDV "M 

.■-_,-:_ii '3i ;;2 j lh 
PiP.Ir-, "-- '-'S'LN SOR 



100 l-Eii ■.'.■ ' .: 

ana poi^e io-jo:- . :■ 



, phi i ..j.T .,;.(-uj I :.)'£ 




THEN GOTO 4.0L 



1 ■.:■;, ppnd U5R 17: 
1099 RETURN 

■I I iIGlI-v 
2010 PP'lv OIF .' 



Pv.ll F.i_0;V';. 



= INI 



UTINKEY* 

NKeviunr: 

URN .RSN ._. 

. ■.oxr-i. /lux;-:-, 

iRiiT-JRM .iun "LN ^Pll 
INK_TVSUnilNKEYS?iPI LN fcRND' 
NCOOE RNDMURL RNDV4MC05 RnCYINi 
SN RNDLN BRNDYSMCODE RNDLN BRHD' 
P-riCCCE r- MOV^FIRSN RNDLN BrnF' — 

ik,?i:i\ r.i_o.- '-'i-i'joi. rndy-nHsn 

N _pNDY3f*NDY MfcNJJY/MBftNO- 
NDLN __RNgy?NaRNDY=HBRNDY MB 



N ifiSN 
_ RETUR 



I _pNDY3M_RNDY MteNJJY ^RBRNDYi 
(DLN fcNI>7?MBRNDY=_i6RNDY HgRI 

!-....■: ■ 1 ■ ■■:.!. ■■.■.!.!' 

I'. 'LM ~YLI-IU''LN O-'TRN Y MF. 

;s-|H»,it -•■ 
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IDY "M+INKEYSM, 
— ' NKEYJ RETUI 



VIRYB-N 

ijUH IS>iK£YS^U£: 
N REM RM&?( "" 



.PiFE . T::< : 
.INKerjr- 

;>Pr^LPEU"' 
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INK6 N JflSN COPY 

■ ■" ■-Y5 ? ? -r' M-: INKEYCV-M-I.-.TNKEY*?-: •! ,c. 

ln fl- , u=i -e 
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anW-VVil E"V n l_t! PP.-. ^MDiJ ; Ti.:l-.E-,MV v UP.. . 
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■ IPP.PU P./' ■':■'.. MP TI - 

. 1 ■ ..■ v-,. f. ,■!. ... . . ., ■, ■, ,1 rvr;n I i 

IDUTIN RND-5,--' U INIi.F-.-r.i-.i-, ■f.l-Ji ..|P vi'Ufi INRE 

U.-lw Y':;XN-,CINKE-. E'VSLN REN RND"? ss'U IN 

■j'VHLN rem 
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. . .0 7;jQ7O070 .... 
LiPiPiiPi-p'IPivcYEUOrvi.lDI^ 
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KEYS RETURN RSN USR ?Lf 
N SOR RND RETURN RRSN »' 
OR RND RETURN 4RSN NEU ' 

t'R Pi-lC- RETURN 4.RSN ' 

RSN T! RETURN 1RSN 



; R^D7-.t-. i: , e , 



S REM -ftUTEUP I 



4 REM -PROGPRH - BALL 

5 REM 

£ REM -SUP ZX3I 16 KO 




S REM «*«.*_* 

9 REM 
100 PEI-I TITRE 
10S POKE IcfeSo 




:ux GENEUIEUE 



a?o if n«.ii-.p,r o 

ers rpnd i.i.ip -.cpj 

sec cls 

999 &T0P 

1008 REM N0M5 

Ieie rpind usr 



-SHIFT -____ 

TRPEZ UNE TO 

THEN GOTO 2210 



SPACE PATROL 



Mors que vous patrouillez sur la planete R'Luck des' 
vaisseaux ennemis vous prennent en chasse. 
Une dure bataille s'engage... 



Michel MONCIET 



L"; SO SU8 99: PRINT RT 8,9/; 

RINT RT 13, a; " 

"I LET y=l*0: LET X 
i«l; LET U&>2: INK 3; LET d»* M pa 
r m.manciftt & P.btUrd": GO 5UB 
S3: LET y«l?5: INK 1: LET d*«" fi) 

1984 "i GO sue as 
IS REM SP.PRTR0L/5PECTRUM ASK 
14 REM PH.BRLRRD 4 M.MRNCIET 

ae so to lie 

33 CLEAR : SRUE "PATROL" LINE 
59: SflOE " "CODE 3£25»,3B0 
SO CLEAR 3S255: LORD ■'"CODE 
69 GO TO 1 

99 LET X=(256-XS*CS*L£N di)/S 

100 LET a =23396: POKE a,X: POKE 

a+l,y; POKE a+2,xft; poke a+3,ys 

: POKE a+4,C£. LET A *i +4 ; FOR in 

1 TO LEN dt: POKE a+i,C0DE dSCi) 

I NEXT i; POKE a+i,a55: RRNDOMIZ 

E U5R 3S2B6, RETURN 

119 LET 5=1 

i29 INK a: PRUSE 3: PRINT RT 3, 
6,"RPPUYEZ SUR UNE TOUCME" 
139 IF INKEYtO"" THEN CO TO 39 




THEN GO TO 429 



295 PRINT RT gl_M-a_."M 

NT RT Sl.M; f*(MJi.; NEXT 11 

296 PAUSE 199: PRINT RT 81,4;" 
RPPUYEZ SUR UNE TOUCME " ; PAUSE 

298 CLS : PRINT RT 5,1, "RlOr* q 
us vous patreuiuts sur La Plane 
tc R'U«h,d*s vaisseaux annatins 
vous prtnnsnt tn chasss ..un* du 

re bataiLLa s'anaaan... 

BONNE CMRNCe I " 

299 BEEP 9.5,9: BEEP 1,7: BEEP 
9.25,5: BEEP 9.12,4. BEEP 8.18,8 
. BE£P 9.5,12. BEEP 1,7: BEEP 9. 
25,5: BEEP 9.12,4: BEEP 8.12,8: 
BEEP 9.5,12; BEEP 1,7: BEEP 9.25 
,5: BEEP 9.12,4; BEEP 9.12,5: BE 
EP 1.5,2: CLS 

399 LET 0%=" . . . 



489 LET Cl>". 



149 Xf a»? THEN 00 TO 118 

168 LET a«a+l; 00 TO 1S8 

888 CLS : BEEP 9.99,59: INK 3: 

LET S=3: LET K»3 
218 LET ys*2: LET XS=2- LET GS= 

0: LET y.38: LET <tt>"COMMRNDES" : 

GO SUB 98 

228 PRINT RT 5,4," 

230 INK 4: PRINT RT 7,15, "RB" 

249 INK S. PRINT RT IB,?; "6.... 

BRS": INK 5: PRINT RT 1 

2,7, '•? MRUT": INK 4; 

PRINT RT 14-7, "9... TI 

R"; INK a. PRINT RT 16 , 7; "BONUS . 
3099" 

245 PRINT RT 21,9, " 

": FOR dl TO 

4 

259 FOR a=l TO 7: PAUSE 3 

269 INK a: PRINT RT 7, 15, "Re" 

278 IF aa7 THEN NEXT C 

239 NEXT a 

291 LET tim" RPPUYEZ SUR UNE 

TOUCHE" ; PRINT RT 28,9, " " 



- " & ' -'' JLSSH .CfckkJk_RT^ 
.SJ_NNMNLMCCLMN_RdJUJB_0 Kik_RT_ 
_ r __RT - gTK J J JGil C_.EC;Eg_. CoCFFFi 

iNcss; 

JJOKj 



. ... I JG. C_EDED_58CFFfT 

?FHLMLll_„flB_ED_BD_ f UJJdGKJKKK_0_ 

_0 NhNNNRKKDNNNNNFlMNMMMMMMNCCGU 

MNMNNNMMMMNLFl _ 

JGGGOilKK CC Oiauiwa ... 
JjRTlRB T RB_CClJKicRB_EDONMNLMLML 

sshls^sSsmCm^mITnnlHlsssssmrtrt 
jrtkkc nmn 



plpM^H^fciM'H'FWriM-HW 



^SsLETYSe. 



LET X=1B 
_. LET Z«INT CRNDttll 
+4: LET G-351: LET P-329 

410 PRINT RT 17,B_C_t<P TO G) , 

411 LET 0*8-1: LET P*P-l 

412 IF P«l THEN 00 TO 499 

413 PRINT RT X.aBi-RBP" 



414 IF INKEYt 
LCT Y»6 

415 IF INKEY*="B" THEN LET X«X> 
PRINT RT X-1,26," ": PRINT 

. X,25; "RBP" 

416 IF INKEYi""7" THEN LET X«X- 
PRINT RT X+1,26;" : PRINT 

. X,86;"RBP" 

417 IF INKEYts-9" THEN GO SUB 8 



HI 3,4Q_ 

489 IF CODE t INKEY*) > =55 AND CO 
Dc CINKEY$i <=122 THEN PRUSE 39 
PRUSE lH 

421 PRINT RT 19,4," UI£S;",K. P 
RINT RT 13, IS," SCORE:', 5 

422 PRINT RT K,26,"RBP" 

439 IF 5=3900 OR 5=5909 OR S=10 
909 THEN GO SUB 690 

459 IF 5>=3999 RND S<5000 THEN 
PRINT RT Z,Y," PUD ' GO TO 460 

451 IF 5 > =5900 THEN PRINT fiT Z, 
v. " PGT'P GO TO 460 

454 PRINT RT Z,Y, ■' ED" 

459 LET Y»Yt2 IF Y»3a THEN LET 

Y-0, LET Z*INT tRND*ll)+4 GO T 
509 

479 IF Z*X RND INKEY»3"0" RND Y 
>=9 THEN PRINT RT Z.Y-1," SiOO" 
PRINT RT Z.Y-1," LET /■« 

LET ZsINT (RNDSlD+4 LET 5 = 3*5 
GO TO 410 

+30 IF Z»X RND Y»S6 THEN GO SUB 

590 

499 GO TO 410 

590 PRINT RT X,a6," ": FOR N« 
9 TO 7; PRINT RT X-1,25,0* BCEP 

9.91,-9 PRINT RT X-1,2S,HS BE 
EP 0.01,-9: NEXT N. LET K»K-1 

506 IF KOB THEN GO TO 413 

510 IF K=0 THEN GO TO 511 

511 PRINT RT 19,4," UIES;0"; PR 
USE 10; LET y=60: LET ys»5. LET 
XS»2: LET CS=8: LET d*V'GRME OVE 
R": FOR N»-20 TO -50 STEP -1; BE 
EP 0.05,N: NEXT N: GO SUB 90; PR 
USE 190 

512 CLS : BEEP 8.2,60: INPUT " 
UN AUTRE ESSRI CO/N) ? ",J* _, . , 

813 LET Ka3; LET S=0. IF J*^" 
OR J*«"0" THEN BEEP 0.2,60: 30 

TO 402 
514 STOP „ mtt 

600 BEEP 0.24,51: BEEP 0.12,32; 
BEEP 0.13,51: SEEP 0.26,51; LET 
K-K+l: LET SaS+189: RETURN 

S990 PRINT RT X.10; INK 3i "____. 
, ZZ " : BEEP 9.095,55: PRIN 

T RT X,19i " 

B918 RETURN 

9888 RESTORE 9301. FOR N-0 TO 7 
RERD R: POKE USR "fl ,, +N,fl: NEXT 

9S81 DRTR 8,8,7,25,34,855,4,3 
9802 RESTORE 9893: FOR 1*8 TO 7: 
RERD ll POKE USR "B"+M,B: NEXT 



SPECTRUM 



* 



9S0S DRTR 234, 246,252, 33, 39, a52, 
32, 15 

9S09 RESTORE 9310: FOR N»0 TO 7; 
RERD fl POKE USR "E"+N,fl: NEXT 

9818 DRTR 3,15,31,59,114,31,3,4 
9511 RESTORE 9B12: FOR N»9 TO 7: 
RERD R; POKE USR "G"+N,R; NEXT 

9812 ORTA 9,9,255,136,136,255,8, 
256 

9S13 RESTORE 9814: ,F0R N-9 TO 7; 
RERO R: POKE U5R "J ,, +N,fl: NEXT 



9318 DRTR 9,0,9,52,199,52,9,9 
9819 RESTORE 9620: FOR N=0 TO 
RERO fl: POKE USR "0"+N,R; NE) 
N 
9529 DATA 0,0,99,100,179,36,88,1 



9882 DRTR 255 ,0,9 , 9,0 , ,9 ,9 n „ 
9823 RESTORE 9824: "OR N»9 TO 7. 
RERD R: POKE USR "H'^N-fl; NEXT 

8884 DRTR 183,64,32,16,8,4,2,1 
885 RESTORE 9886. FOR N»0 TO 7 
RERD A: POKE USR "L'^^fl; NEXT 
N 

9886 DATA 1,2,4,8,16,32,64,128 
9827 RESTORE 9888; FOR N.0 TO ?: 
RERO R: POKE USR , 'N"+N,R: NEXT 

9888 DRTR 9,9,0,8,20,34,65,126 

9889 RESTORE 9830: FOR N-8 TO 7: 
READ A: POKE USR "IT+N,h: NEXT 

N 

9339 DRTR 9,8,29,34,65,123,0,0 

9831 RESTORE 9838: FOR N*9 TO 7. 
READ A: POKE USR "S"1-N,R. NEXT 

9832 DRTR 34,85,136,0,0,0,0,8 
9333 RESTORE 9834: FOR N=8 TO 7; 

RERD R: POKE USR "R"*N,R: NEXT 



C'est nouveau, pa Went de sortir 



Commodore: des prix 



Nous vous avions deja an 
nonce !e prix (pour ies USAi 
du nouveau Commodore 128 
En effet, celui-ci a ete mis 
sur le marche americain pour* 
250 $ Nous pouvons main 
tenani vous donner ceux du 
nouveau lecteur de disquet 
tes (le 1571) et de la version 
portable du C128 (lei-CD) le 
premier vaudra 290 S (envi 
ron 3000 francs) et le second 
1000 $ (11000 francs) Ces 
tarifs paraissent difficilement 
competitifs (en rapport capa- 
cite.'pnx) vis-a-vis de ceux 
annonces par Jack Tramiel 




LE I57I 
pour ses nouveaux matenels 
promes- 



ATARI, s'll tient s 



DES SOFTS, DES SOFTS... 



Toutes les grandes societes 
de logiciels americames ont 
de|a annonce ta couleur 
Elles ont toutes distribue a 
Las Vegas de magnifiques 
calalogues en couleur. Pour 
dautres (comme Electronic 
Arts), la patience esl encore 
de rigueur. En ce qui 



Murder On The Zinderdorf 

Ce soft est une adaptation du 
"Cluedo". |eu ou apres un 
meurtre vous devez decou- 
vnr le coupable, son arme et 
le lieu du meurtre grace a 
votre enquete. li en existe 
une version Apple (deja en 
circulation en France, sans 
doc, par le reseau pirate), 
une C 64 et une Atari. 
Archon II dort etre prochat- 
nement adapte pour Apple. 



ainsi que Realm Of Impossi- 
bility Du cote d'Access, 
une seule nouvelle a filtre; 
Beach Head II est prevu 
pour le mois d'avnl en 
France. Contrairement au 
premier (parmi les dix meil- 
leures ventes anglaises en 
84), le nouveau aurait un 
scenario interessant 




DU NEUF 



produils de 
Sprites, la societe jeune et 
dynamlque qui fait rten qua 
sortir plein de logiciels pour 
quon parle deux Ceci dit, 
c'est Ires pratique, Qa permet 
de faire une promotion "5 ar- 
ticles pour le prix d un. sous 
blister". Seul inconvenient 
tout nest pas Don. 
Le premier pas bon, c'est 
Krisp pour Commodore 64 
Enfin sr, il est pas mal, mais 
c'est un theme un peu ecule. 
celui de Nibbler, le serpent 
qui se mord la queue Si 
vous aimez Nibbler. celui-a 
est en langage machine 
comporte cinquante tableaux. 
esl rapide, bref. tout bien. Si 
vous etes lecteurs de I'HHH 
Hebdo depuis un certain 
temps, vous avez deja celui 
que nous avons publie el 
ceia ne vous inieresse pas 

-•inllfc LEDIAMANT 

"" ) J!l |fc '..DEKHE0PS 



Encore un pas bon. mais 
pour le coup pas bon du tout, 
c'est Graphisto sur MSX 
(vous savez, I'ordinateur 
jone) C'est un utilitaire de 
dessin completement inutile, 
puisque le remplissage de fi 
gures ne marche qu'avec 
certaines combinaisons de 
couleurs, qu il n'y a pas d'op- 
tion de tirage de traits lies, et 
que comble d'ironie il ne fart 
pas la vaisselle C est done 
un moins bon rapport qua- 
lite prix qu'une machine a 
laver ciassique 





A INTERIEUR 

Les pauvres MSXistes (je 
neoioge un max, aujourd hui) 
n ont pas de chance, car In- 
teneur est un jeu d'aventure 
dans lequel il ne se passe 
nen, L'analyse syntaxtque 
est restreinte (oeuf et misme 
sont dans un bateau), et le 
cadre de Taction totalement 
immuable. puisqu'une seule 
image vtent regaler vos yeux 



Le deuxieme pas bo" est ires 
bien aussi II toume sur One, 
est en langage machine, sa 
Vitesse n'a riert a envter a 
personne. la quaiite de ses 
grapniques est remarquable 
et le |eu en lui-meme est 
chiant comme la mort, |'al le 
drort de le dire, c'est dans le 
dico. Ca s'appelle La Pyra 
mide de Kheops mais on ne 
voit pas Kheops dans le logi- 
ciel, de la a dire que c est de 
la publicite mensongere il 
n'y a quun pa s que je ne 
Iranchirais pas pour des rai 
sons d unijambisme 




k PSYCHIATRIC 



Et pour me reposer un peu 
(la mechancete, ca aignt), ie 
vais vous faire un aveu. ie 
dernier des cinq est reelle- 
ment tres bien C'est Psy- 
chiatric, ca tourne sur Oric, 
ga ressemble a Lode Runner 

c'est genialement bien 
anime, tres rigolo. difficile a 
]Ouer. accrochant. et jarrete 
sinon on verra que j'ai pompe 
sur le dictionnaire des syno 
nymes. VoilS voila. 



NINTENDO CACHE SON JEU 



En commerciallsant sa 
console de jeu, Nintendo se 
lance tete baissee dans un 
marche en pleine perte de Vi- 
tesse Que vont-ils inventer 
pour justifier eette utopie ? 
D 'accord, lis n'ont jamais 
vendu les droits de leur jeux 
de cafe, ils vont done pouvoir 
les proposer pour leur 
console Mais ce que nous 
ne vous avions pas encore 
dit. cesf que Nintendo a fa- 
brique un micro, un vrai avec 
un clavier et le reste. Ce 
micro a I allure d'un MSX, ies 
ports cartouche d'un MSX, 
mais ce nest pas un MSX 
Que vont-ils inventer pour 
lancer leur micro ? Ils offri- 
ront sans aucun doute leurs 
jeux de cafe en cartouches 
Mais pourquoi pas en stan- 
dard MSX, hein Mossieur 
Nintendo ? 

Tiens en parlant de |eu de 
cafe, Nintendo vient d'intro- 
duire en France un tennis 
pour deux ou quatre foueurs 
sur deux ecrans Chacun des 



joueurs voit done le court 
comme dans la reafite, en 
3D L'option quatre |oueurs 
autonse les doubles, alors 
que la deux joueurs peimet 
les matchs en simple. L'effet 
de rebond est saisissant et 
tres trompeur, mars parfaite- 
ment realiste. Un essai a ac- 
complir, un soir oil vous ne 
savez pas quoi faire avec 
trois amis 




FLIPPE OU TU MEURS 

Cobra Soft introduit dans 
votre salon le premier flipper 
qui retienne votre interet plus 
de deux minutes (pour One 1 
et Atmos). Gilles Berlin, son 
auteur, vous a gates bum 
pers, cibles. couloirs de re 
montee, portillon vous trans 
portent directement dans le 
monde ferme des pinballs 
Vous pouvez tout faire de 
votre balle amortis, fourchet 
tes, changements de flip, 
bourrage (ou massage), le tilt 
ne vous punira que si vous eclairages viennent renforcer 



tense de modifier le nombre dans toutes les bonm 




ENTERINONS LE DEBAT 



Dabord, la sol 
130ST et du 520ST i 
boutons Na 



TOOL 64 OU COMMENT DISPOSER D'UN 
BASIC ETENDU SUR CASSETTE OU DISQUETTE 



la commer- 
cialisation de I'Extra Tool par 
Micro Application, il nous pa- 
rait de bon ton de vous expli- 
quer comment sauvegarder 
le contenu de la cartouche 
TOOL 64 sur une disquette 
ou une cassette Pourquoi ? 
Parce que pour utiliser Extra 
Tool, vous devez posseder le 
Tool, 

Le Tool est loge dans la me- 
moire de votre Commodore 
64 entre les adresses 32.768 
et 40.960 II va done simple- 
ment sagir de sauvegarder 
eette portion de la memoire 
sur un support magnetique 
de votre choix Prenez la car- 
touche du Tool, endchez-ia 
dans le C64, et attendez de 
reprendre la main A ce mo- 
ment, entrez le programme 
suivant: 

10 POKE 183,7 POKE 

186,1 : POKE 185,1 
20 POKE 187,203 POKE 
188,129 

30 POKE 251,0 : POKE 
252,128 

40 POKE 780.251 POKE 
781,0 

50 POKE 782.160 SYS 

65496 

Ce programme est concu 
pour reaiiser une sauvegarde 
du Tool sur cassette Pour 
I ef'ectuer sur une disquette. 
il vous faudra modifier la 
hgne 10 de la maniere sut- 
vante: 



Une fois celte duplication du 
programme faite vous n avez 
plus qu a eteindre votre 
micro et en enlever la cartou 
Che Ral'umez votre C64 et 
tape z 



- LOAD "TOOL-64M.1 si 
vous avez sauve sur cassette 

- LOAD "TOOL-64",8.1 si 
vous avez sauve sur dis- 
quette. 

Pour demarrer le pro- 
gramme et utiliser le basic 
etendu, tapez alors SYS 
64738. Si c'est votre voisin 
qui vous a offert ta cartou- 
che, fe temps de la copier, 
n'oubhez surtout pas de lui 
demander la doc Une pholo- 
copie sera la bienvenue pour 
exploiter cet utilitaire pleine- 

Dernier point: vous avez do- 
renavant acces au listing 




Vous pouvez done ie modifier 
selon votre bon piaisir Si 
vous desirez changer cer- 
tains noms destructions 
(SCLEAR en CLS par exem- 
ple), il vous faudra ne |amais 
oubher que la dermere lettre 
dune instruction Basic esl 
codee en aioutant 128 a son 
code ASCII 

RANDOM AND ACCESS 



le 1541 

et les exces de\iitesse 



La nouveaute frappante nu 
va rejouir le coeur de tous les 
Cbmistes, c est la cartouche 
Fast Load Grace a eette 
magnifique extension hard 
vous aliez pouvoir utiliser 
votre drive a une vilesse su- 
pfeneure de cinq fois a la Vi- 
tesse nominale Elle autorise 
des chargements, des sauve- 
gardes et des copies de dis- 
quettes (meme protegees) 
Du fait de sa presence dans 
le port cartouche, elle n'uti- 
lise aucune portion de la me- 
moire (contrairement a tous 
'es logiciels de Fast Load) 




catalogue de la disquette est 
stocke dans la cartouche: 
plus besoin d'ecraser le pro- 



Elle est done compatible gramme en memoire pour 



NOUVELLES DEBELGIQUE 



II etait une fois: 
II etait une fois, des logiciels 
vendus avec 30% de reduc- 
tion... Non, ce nest pas un 
conte de fees mon fifi. I'his- 
toire est vraie, meme si elle 
est Beige. Dans la recherche 
de logiciels a prix Interes- 
sants, les mauvaises surpri- 
ses sont nombreuses: soil le 
produit est bon marche mais 
peu interessant, soit il s'agil 
d'un article de quaiite et ie 
prix est exhorbitant (Va done 
eh '. Lapalisse) 

Pourtant. mon T.I, au ren- 
carl depuis des mois a re- 
trouve une certaine jeu- 
nesse; je lui ai deniche des 
modules de jeux (les modu- 
les originaux) vendus en em- 
batlage d'origine avec 30% 
de remise sur le prix normal 
ainsi certains modules attei- 
gnenl a peine les 600 F. 
Beiges. 

Mieuxqueca. . iu meurs I I ! 
Alors tant pis pour toi, parce 
que si tu discutes avec le 
vendeur tu peux arriver a en 
avoir trois pour mille balles 
("trois vendeurs ? .."-"Mais 
non andouilie ... trois modu- 
les") C'est pas beau ca ? 
Evidemment, tu dois faire 
preuve d'imagination pour 
discuter avec le vendeur (ap- 
pelle le... Mr le Chef de 
rayon, ca fait piaisir) Tu peux 
aussi plagier Coluche: "Eh le 



mec la, tes cassettes la, cast 
du vieux machin mon pote; 
alors ecoute bien je suis bon 
avec toi le mec, pour 1000 
Frs je t'en prends trois. c'est 
pas gentil ca ?." 




Maintenant les petits. puis- 
que vous ay§z leau a ta 6gu- 

che, je vous dis ou c'est, ., 
Les petites merveilles en 
question se trouvent dans 
certains Maxi G.B. avec 
Maxitec (Pas de pub, hein 
les mecs 1 1 1) 

Attention, les prix varient 
d'un magasin a ('autre, a 
vous de discuter soyez 
convaincant et bonne 
chance.. 

DAMY AILE 



ATARI 800XL GRATUIT ! 



Atari organise pour les eco- 
liers et les lyceens un 
concours de dessin sur ta- 
blette tactile pendant Micro- 
Expo (du 1 6 au 19 Fevrier, au 
Palais des congres a Paris) 
Le meiileur dessin fera ga- 
gner a son auteur un micro 
Atari 800 XL et une tablette 
Et pour que les petits cama- 
rades d'ecole du gagnant 
s'habituent bien comme il 
faut a travailler sur Atari. 
I etablissement scolaire au- 
quel appartient le gagnant re- 



cevra lui aussi un 800 XL. un 
lecteur de cassette el cinq 




cassettes de cours Basic. 
Est-ce qu'Edika ou Carali ont 
le droit de participer ? 



MSX 16 BITS? 



Sony aurait I'mtention de lan- 
cer d'ici six mois un micro-or- 
dinateur compatible avec ie 
standard MSX, mais avec un 
processeur 16 bits Cette in- 
formation est d'autant plus 
etrange que le cahier des 
charges MSX stipule que le 
processeur doit etre un Z80 
Mais selon les rumeurs, le 
standard MSX actuel ne se- 
rait quun test de marche 
pour pouvoir lancer avec le 
plus d'efficacite possible le 
veritable MSX Celui-ci se 
rapprocherait plus de machi- 
nes comme par exemple le 
Macintosh ou le nouvel Alan 
Les porte-paioles du cartel 
|aune ont declare caduques 
les micro-ordmateurs equipes 
d'un processeur a bits, et ont 
precise leur mtenlion de 
s onenter vers le marche de 



lintormatique personnelle, 
essayanl amsi de marcher 
sur les piates-bandes d'Apple 
et dT8M Malheureusement. 
Sony France nest pas au 
courant des specifications ni 
de la date de sortie de lengin 
en question. Tous les autres 
conslrucleurs auraient dans 
leurs cartons des projets si- 
milaires, et on murmure 
meme la possibility de larri- 
vee prochame dun veritable 
32 bits 




C'est nouveau, pa vient de sortir 



BIDOUILLE GRENOUILLE 



Freedom, les mecs Et peace and 
love, pas que ie les oubhe J'etais 
a Katmandoi y a oas deux semai- 
nes, et j'ai ramene un paquel de 
trues, je te dis pas I C etait 
super i A urr moment I'etais al- 
longe sur la plage, i avais des 
images bizarres qui me passaient 
dans la tete, avec des couleurs 
bleutees et des animaux syntpas 
Sabina etait a cote de moi enro- 
bee dans sa chemise indienne, et 
elle emettait une lueur phospho- 
rescente super Et puis je sais 
pas pourquoi, tout d'un coup j'ai 
eu une illumination j'ai vu appa- 
raitre devant moi Ie visage 
d'Herve Bischof qui me posait 
une question sur Dieu Ca tombait 
super bien parce que Dieu m etait 
iczi'. a veil e justement n 
rr ava-t cnarge" de iu transmettre 
Queue coincidence la facon d en- 
t"»' dans ie cnaleau du Vampire 
Fou ba;sser pont-ievis pins en- 
t'e- uliateau Ca a ete un Nash 
rini vieux ' Dieu ma aussi d ' 
q leigue chose a piopos de repa- 
rer una mobyletie. mais j'ai pas 
tdut compris 

Au son dune citnare et des 
oboes i ai communis avec les 
rremores de la communaute 
Nojs avons chante des mfilop6es 
envouta-tes dans lesqurilcs n 
(j'iil question du voyage astral et 
de ia lacun d'avon plusieurs vies 
dars ce'lams ieux suf Commo- 
dore 64 Je vous donne les paro- 
les, c est vraiment trap beau pot,' 
que ie Ie garde pour moi 
Taper ceci en mode direct : 
Fort apocalypse. POKE 36339.153 
donne 153 vies au lieu de 9 
Killer watt, POKE 37607 255 
donne 255 vies au lieu de 3 
Krazy Kong. POKE16131 .255 
donne 255 vies au lieu de 3 
Kong. POKE 12119.255 donne 
255 vies au lieu de 3 
Pour obtenir ie listing basic de 
Token of Ghall, il faut taper 
POKE808,237:POKE818.237 en 
mode direct 

REM merci a P. Marcin . 
C'est Dlanant rmn ? Ge5 lltCMa- 
tions bnt porte leurs fruits, puis- 
que Ie lendemain. il y avail quel- 
ques phrases ecrites en lettres de 
feu dans Ie ciel, tel un signe 
divin: 

Dans Heroes of Karn penser a 
soudoyer Ie Garde avec un G ma- 
juscule Lorsqu'on est bloque par 
une crevasse, il faut dire a Istar 
"Agiter baguette', puis "jouer 
flute" et "agiter baguette" II faut 
arroser le Phoenix, attaquer Ie 
sorcier de feu avec de I'eau et le 
guerrier avec de lacide ll ne faut 
pas tuer le vampire, mais dire a 



Istar tie i aitajje; avec e cucitix 
II fau: |Oje' de ia -na-dd-ne pour 
pouvcr p'enc-e la cie en or el 
penser a luiier ie cof're rou'Ne 
C Bujlreau vuus a me 
Lr oel etait plei.i. ciS done ' 
J'ava s queiqucs enca us e^ plem 
trip, ga leu' a 'an tout d'6ie ven 
a meme u" qji s est tus a parier 
a i envers Heceusement. on 
avait un magneto et on a ou 'e- 
passer ia se^je'ce On a oas plus 
comp'.s 3 I'endro-t cu'a re-overs. 
ma ! s vojs comprsndrez sejt-etie 
Mo-. Hsive JdnoU ie vous donne 
la marce a sulvre pour resoudre 
les avenijrc; de i Ufa et Jacky sui 
One Sors. e. n ouvr r robmet 
s o. ent'e - . n prend'e pcrte- 
feu.He. prenore clef, prendre 
lunettes, e. s mooter n. n 
prendre cnaoeau s s e. ouvnr 
p'aca'c. orendre gourde, one 
Ouvrr robmet rempl r gourde 
feme' robmet o s descendre 
sortir. p'encre voiture. mettre lu- 



dans leouei m p'oposa-; de taper 
ia iettre p smve oe r etu"i eais 
The count pour Vic-20. II precsai - . 
que tela donnaa la lisle des ac- 
tions possibles sous foime de 
chiffres On i a tuus hue parce 
que ies chillies c est trop irhu- 
mam el ca n evoque pas assez la 
fratermie des peupies Faut ce 
qu il faut 

A la tin du repas David Denaux 
nous a iu un passage du ivre 
sacre" des morls Transylvamens 
Le chapitie sept. Ires beau, pen 
d allusions aux dieux maudits et 
tout hens, je vous en passe un 
bout 

"Dans Transylvania, tout d'abo'c. 
il vous faut ia eld d'argent oete- 
nue pai ce sale rat de gob in n 
vous laut pout ce fa -e utlllser 
i'ac<de pour decaper ia souche au 
depart, ce qui vdus donnera le 
moyen pour enlrer dans ia gro:te 
au-dessous La. hie le I'vre magi- 
quc. sans le prendre poo savo r 




13 -.a alez dans ie gienier ou 
se t-ouve jn pistolet Faites 'load 
gu* sour ] e charger avec ia Dane 
d'a'gent. ouis quand vous etes 
devant le loup fdilus 'shoot ■■■>■ 
rewolf* Pou' venir a boul du 
varrpire i faut piendre ia "■■ ■ 
dj cimeticre Ouand le vampin: 
est a "'■■in:'- 'show cross" pour 
mo r fe- ia croix ce qui tue >e 
vampire Une fo>s tout ceci fait ■ 
.'este la pnncesse 3 iiDfirer n fau? 
erenore I'anneau qui est dans te 
coffre au uesor du vampne. dan^. 
les sous-sols du chateau AMu/ 
ersjite dcvanl ?. slalue dans '-. 
cla '-e'e et faites 'show ring' li 
va se passer quelque chose 
Quite* ensuite la dairiere. et at- 
tende? de voir une etoile lilante 
Revenez en vitesse. approcnez 
vous de la soucoupe vofante. at- 
tendee Quelle disparaisse et pre- 
tie* la petite boite noire qui est 
to-nodn Alle/ ensuile au chateau, 
cans -a chambre apres le hail 
vers e haut fl y a une 6ctiellc Si 
ie vampire est mort, il vous sera 
possible de rescaiader Vous 
serez dans une chambre haute 
avec des vignes Prenez-les. "take 
vines", et un sarcophage apparai- 
tra. Appuyez sur le bouton de la 
petite boite noire Le sarcophage 
s'ouvrira et la pnncesse apparai- 
tra La, utilisez le mode dempioi 
de I'elixir que vous avez lu dans 
le livre. La princesse va seveilier. 
faites "take princess" ll est helas 
impossible de lembrasset Adez 
ensuite au bateau dans la ciairiere 
pres flu sauie. la ou il y avail la 
et utilisez le bateau 



3QUI 



intrer. 



nettes. prendre jerrican, demar- 
rer, rouler, remplir |erncan. rou- 
ler, mettre chapeau, arreter 
moteur, poser clef, sortir (a partir 
de ce moment-la. il faut (aire 
boire gourde toutes les 2 ou 3 ac- 
tions), s, prendre fusil, e, e, 
acheter corde. poser portefeuille. 
S, vider jerrican, bruler buisson, 
s. o. tuer monstre. o. descendre. 
poser fusil, prendre GQuteau. 
monter, e, e, n. e, n. attacher 
corde, descendre, sauter, n, n. n, 
n, attendre, n, e, e, n, poser jer- 
rican, poser gourde, poser cou- 
teau, enlever vetements. s, o, o, 
n Et a vous le dessin anime 
On la tous regards, d'un air bi- 
zarre, mais il n'a pas paru sen 
rendre compte. Si on avait pu 
joindre le poivron rouge, il nous 
aurait explique. mais malheureu- 
sement on n'avait pas son tele- 
phone Ah I Les rocky qui met- 
tent pas leur adresse... Et puis, la 
France, quand on est en Inde.. 
Benoit est parti dans un delire 



comment utiliser I elixir, et attra- 
per les mouches avec le papier 
tue-mouches du chateau Pour 
ressortir de la grotte. faire "take 
book" ll faut apres les donner a 
la grenouiiie pres du bateau et du 
lac, qui vous dira comment vous 
debarrasser du goblin Quand 
vous aurez ia cle allez au cime- 
tiere La. faites 'unlock grate" 

En, eltet. il y a une guile iermee 

pres de la tombe Ensuite, faites 
"enter grate". Vous serez dans 
une salle secrete ou se trouve 
I'Slixir qui permet de revsiller la 
pnncesse Sabrina, at dont I'utili- 
sation a ete decrite dans le livre 
de la grotte Pour vous debarras- 
ser du loup-garou. il faut utiliser 
la baile d'argent se trouvant dans 
le cercueil tie la carriole Dans ce 
cercueil se trouvent egalement les 
soins permettant de se debarras- 
ser du chat de la cabane de la 
foret, oil se trouve lacide Une 
fois que vous avez ia balle. allez a 
la vieille maison avec le numfiro 



Et puis on s est reunis autour 
d un Minitel On a trouve (enfm. 
c'est toujours Philippe B qui 
trouve) les renseignement inter- 
nes des PTT, par le (1) 531 75 
12. II n'y a pas de code mais 
cela ne marche pas apres 18 
heures Et I annuaire mterne des 
agents des PIT. dn peut I avoir 
par le 613 91 55. en faisant 135 
000 171 ou T12 Ceux qui cher- 
GliefU un emploi peuvent aller 
iaire un tour sur la gazette de 
remploi en tapant 191 040 398 
ou DGDE Si vous voulez venir 
nous voir 3 Katmandou. appelez 
Air France par le 675 14 14. C est 
d'autant plus pratique que ce nu- 
me^o ne necessite pas de code Et 
vous pouvez avoir I assemblee 
nationals en tapant AN. mais je ne 
sais plus si c'est sur 614 ou 613 
voila. 

Mais le serveur le plus planant 
qu'on ait trouve, c est vraiment le 
serveur Hebdogiciel 

* * -it it -k * * * A 



ARRETEJAC! 



Jack "gonfletle" Tramiel 
continue dans ses delires. II 
a annoncS durant une brfeve 
vlsite a Londres qu'il comp- 
tait mettre sur le marche une 
machine comportanl un au- 
thentique processeur 32 bits 
(le 32032) de NSC. CoOt 
prevu: 9000 francs. Bourn. 
Seul probleme, il a encore 
besoin de 150 millions de 
dollars, en plus des 75 qu'il a 
deja investl de sa propre 
poche pour assurer son mar- 
che. Vous pouvez iui envoyer 



un cheque a "Jack Tramiel, 
USA", la Iettre arrivera. 
Une petite histoire drole en 
passant; le systeme de ges- 
tion des disquettes s'appelie 
le TOS, pour Tramiel Opera- 
ting System. Gag. (pour Ge- 
rard ceccAldi, conG). 




TOUJOURS PLUS FORT 



L'une des premieres societes 
de service informatique euro- 
peenne, CAP GEMINI vient 
de mettre au point un nou- 
veau systeme telematique 
ultra-protege contre le pira- 
tage; celui-ci empecherait le 
detoumement et le vol des 
informations sur les lignes de 
transmissions et dans les 
memoires. Ca s'appelie MUL- 
TiMAIL MHS, et c'est en ex- 
perimentation a la chambre 



CA A L'APPARENCE DE L'AMS 

Ca a le basic de I'Amstrad, assembleur ? E 
ca a la resolution de I'Ams- tout ca ? 
trad, ca a les logiciels de 
I'Amstrad mais ca n'est pas 
un Amstrad. C'est un Schnei- 
der CPC 464. Bon, soyons 
francs, c'est exactement le 
meme apparelf, quolque la 
version allemande (pulsque 
c'est d'elie qu'il s'agit) soit 
plus sobre quand aux cou 
ieurs du clavier. Atiention 
les reflets couleur arc-en-ciel 
sont un effet photographique 
et ne sont pas llvres avec (a 
machine. Line Inquietude se 
fait jour cependant: lors dp 
('initialisation, la mention 
"Amstrad 64k" esl remplacee 
par "Schneider 64k". Est-ce 
la seule modification de la 
ROM ? Ou devra-t-on jongler 
avec les points d'accSs en 
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celebre pour son Flight Si- 
mulator II . repart a I'assaut 
avec deux nouveaux logi- 
ciels. Le premier. Jet , simu|e 
le pilotage d'un Boingue 747 
et aurait pu s'appeler Flight 
Simulator 111. Le second, 
Geusse Pah , precede la re- 
volution telematique, il auto- 
rise seize joueurs a se 
combattre de micro a micro I 
Chacun doit disposer d'un 
exemplaire du soft, d'un 
modem et d un entrafnement 
certain au pilotage de son 
chasseur (et oul, encore un 
simuiateur de vol). A partir de 
la, la voie est libre a tous les 



EN FRANCAIS 

I 

delires: aller bombarder son 
voisln sans quitter son fau- 
teuil cheri, descendre les 
chasseurs qui viennent dans 
votre territoire... Un must 
qu'il nous tarde de voir en 
France, mais n est-il pas trop 
en avance sur la revolution 
sus-cltee ? 




IMAGIC : DANS TOUS LES GENRES 



Le nouveau catalogue d'lma- 
gic est riche et multi-ordina- 
teurs Les logiciels sont des- 
tines a Apple C64 et IBM 




Sherlock Holmes dans 
"Another Bow" vous en- 
traine a sa suite pour trouver 
le meurtrier dissimule parmi 
Edison, Henry Ford, Graham 
Bell, Louis Amstrong. le 
Baron de Rothschild et Lady 
Astor. 

I Diamano vous plonge dans 
les forets etranges du XIV 
erne siecle Vous devrez re- 
trouver le Livre du Diable 
pour permettre au bien de 
vaincre le mal. Speak and 
Seak apprendra intelligem- 




. INJURED ENGINE 



ment aux entants I alphabet, 
une centaine d animaux et 
Oob|els animes viendront 
capturer son attention au 
rours de lapprentissage. 
Injured Engine vous appren- 
dra le lonctionnement (en de- 
taill dun moteur a explosion 
lentierement graphique). 
Macbeth vous enverra direc- 
tement dans le monde de 
ShaKespeare, peuple de 
meurtres, d'hypocrisie et 
d intrigues. 

The Time Machine , tire du 
livre de H.G Weils, vous em- 
menera dans le futur a la res- 
cousse d Eloi dans sa lutte 
contre les Mor locks. 
Crime and Punishment 
vous introduira dans la peau 
dun juge charge de lenquete 
et du proces d'un meurtrier. 
Grand Slam Baseball se 
joue seul ou a deux, vous 
pourrez amsi decouvnr les 
arcanes du sport le plus po- 
pulate des USA, le baseball, 
dans une version graphique 
3D tres reussie. 
Touchdown Football vous 
apportera les memes plaisirs, 
mais pour le football ameri- 
cam tout comme Tourna- 
ment Tennis le fera pour le 
tennis Imagic a annonce a 
Las Vegas son intention de 
ne plus editer que des jeux 
d avenlure graphiques ou 
texte. La societe prendrait 
done le chemin de|a trace par 
infocom (specialiste des jeux 
daventure en texte pour 
Apple). 



LA MAISON PARAPLUIE 
A L'HEURE DES MICROS 



C'est Officiel, puisque c'est 
paru dans le journal du 
meme nom:l'introduction de 
fichiers informatises dans les 
commissariats est autorisee 
par un arrete du 18 Janvier. 
Allons bon, voiti que las flics 
se mettent a la micro. 
Posons done franchement la 
question: quelle genre de ba- 
vure cela va-t-il donner ? Pi- 
ratage, erreurs de manipula- 
tions ? Ou bien va-t-on 
entendre derriere les portes 
des commissariats les lasers 
de Space Invaders, les Ton- 
neaux de Donkey Kong ou le 



traffic de Frogger ? Une 
chose est sure: iTTaut un bon 
moment pour apprendre a un 
indivrdu normalement consti- 
tue a se servir d'un ordina- 
teur. A vous de conclure. 




RECONNAISSANCE VOCALE: 
LE SYNDROME DU PERROQUET 



Voire Apple ou votre 
Commodore deviennent intel- 
ligents. Covox Inc., brillante 
societe californienne, vient 
de lancer un nouvel appareil: 
le Voice Master . Cette ma- 




des banques de donnees a 
application specifique (pro- 
grammation, debuging, cra- 
ckage...). Imaginez un jeu 
d'aventure: plus besoin de 
clavier, vous n'avez plus qu'a 
penser a haute voix I La ver- 
sion Apple vaut 120 $ , celle 
pour Commodore 90 $ . 
La firme commercialise 
conjointement une carte vo- 
cale sans reconnaissance 
pour 40 $ et qui fera causer 
votre Apple comme vous et 



A VOICE MASTER 
gnifique extension hard cou- 
plee a un casque et un micro 
memorisera soixante quatre 
mot-cles que vous Iui dicte- 
rez a haute voix. Le soft per- 
mettra la reconnaissance de 
ces mots (lorsque vous les 
prononcerez dans le micro), 
leur affichage sur I'ecran et 
leur execution Chaque 
groupe de 64 commandes 
pourra etre sauve sur disque: 
on pourra ainsl constituer 




k CARTE VOCALE 



VIVEZ DANGEUREUSEMENT 

Pour un peu plus de 300 vibles qui font la glolre et les 

francs, vous pourrez acquerir retoursenusmedu Spectrum-' 

un kit qui vous permettra de 

transformer votre vieux 

Spectrum en Spectrum + , ' — l 

pour peu que vous ayez un 

modele achete en Angleterre 

Ce qui est bien avantageux, 

puisque vous pourrez ainsi 

beneflcler des touches amo- 




Suite de la page 1 

Nous avons trouve dans un jour- 
nal Terrestre (Hebdogiciel n" 61) 
un test que nous avons applique 
Voici le listing: 

10 A- 2 

20 FOR N- 1 TO 20 

30 A= SOR(A) 

40 NEXT N 

50 FOR N= 1 TO 20 

60 A = A*2 

70 NEXT N 

80 PRINT A 

Apres un Run. nous obtenons le 
restiltat 1 999897829 en 4.8 se- 
condes Si la precision est plus 
qu'honorable. puisqu'elle est 
meilleur que celle de I'Amstrad 
encore une fois la lenteur nous 
frappe II n'y a guere que le Spec- 
trum, le Canon X07, l'Atan et le 
ZX81 a eire plus lents Et ce n est 
pas peu dire ! 

Un "bug" gravissime: ayant tape 
"LIST 20." au lieu de "LIST 20-". 
la machine s'est irremediablement 
plantee Nous avons perdu notre 
programme, et un reset S'est 
a wire necessaire. 

L'editeur est plein ecran, et 
comporfe un certain nombre 
d'avantages D'abord, ainsi que 
nous lavons deja dit, le curseur 
se manipule avec le joystick 
C'est assez agreable Malheureu- 
sement, celui-ci a une facheuse 
tendance a aller en biais tout le 
temps Nonobstant ce detail. 5 
pages d'ecran sont memonsees. 
ce qui permet de faire defiler des 
programmes a la fois vers le haul 
et vers le bas Un autre bon point 
si la iigne sur laquelle se trouve le 
curseur est un message d'erreur 
ou le mot "Ok" (equivalent de 
"Ready"). I editeur ne le prend 
pas en compte On peut done 
descendre son curseur avec la 
touche Return sans afficher de 
"Syntax error" partout. 
Lors d'un "LIST", des identations 
sont cr^es automatiquement par 
la machine Cela signifie que les 
sous-programmes ,a I .rrterieur 
dune boucle TOR-NEXT" par 
exemple sont decales vers la 
droite, d'aufant de caracteres 
qu il y a de boucles imbnquees 
Cela rend les listings tres agrea- 
bles et tres simples a relire 
Tout est fait pour taciliter I acces 
au langage machine a partir Ou 



basic De nombreuses instruc- 
tions servent a implanter. a modi- 
fier, a appeller des sous-routines 
108 messages d eneur viennent 
taciliter le debuggage des pro- 
grammes C'est un record inegale 
dans ce domaine Cela rend la 
machine tres souple et lui donne 
une grande faculte dmitiation 
Un enorme defaut: nous avons 
ecume" toutes les epiceries de la 
region (et dans toutes on s'obsti- 
nait a nous prendre pout des an- 
glais), mais nous n avons trouve 
que trois logiaels disponibles 
C'est bien peu pour une machine 



CAPTURE: echange le contenu 
de deux entrees de tichier. 
CODE: permet d entrer un pro- 
gramme en langage machine sous 
forme basic puis de lappeler 
avec un nom de variable 
DATE: donne la date 
DISPLAY: permet la creation de 
fenetres de texte 

DO: debut de boucle, s utilise 
avec WHILE, UNTIL, LOOP et 
EXIT 

EXIT: permet de sortir d une 
boucle en depilant automatique- 
ment les adresses 
EXT: permpt de communiQuer 



SERIAL FORMAT, SERIAL 
BAUD: permet de definlr la 
forme des mots envoyes a la RS 
232 (Parite, nombre de bits de 
stop, nombre de bits emis ) 
TIME: donne I heure 
TOGGLE: inversion dun etat 
Par exemple. le clavier peut etre 
sonore ou silencieux. le TOGGLE 
le fera passer d'un etat a lautre 
et reciproquement A ces instruc- 
tions saioutent celtes utihsees 
pour limage (ATTRIBUTES 
BEAM, BIAS, BORDER CHARAC- 
TER. COLOUR CURSOR. GRA- 
PHICS INK LINE MODE LINE 




Suite de la page 24 

PEPE LOUIS CONTRE LE GANG DES PUCES 



qui a un age virtuei d un an et 
demi... 

Pour terminer, voici quelques ins- 
tructions inhabituetles. Cette ver- 
sion du basic est la plus structu- 
res qu'il nous ait ete donne de 
voir Mais cela n'a rien d'eton- 
nant, en regard des 48 Ko qu'il 
occupe. 

ALLOCATE: reserve en me- 
moire un certain nombre d'octets 
destines au langage machine 
ASK: retourne dans une variable 
choisie I'etat d'une fonction desi- 
gnee. Exemple: ASK KEY RATE A 
retournera dans la variable A la 
Vitesse du curseur A noter que 
KEY RATE est une des instruc- 
tions du basic 



avec des penptieriques, notam- 

ment les cartouches. 

FKEY: permet de redefinir les 

touches de fonction 

IMAGE: version evoluee du 

PRINT-USING, avec possibility de 

faire prficeder les chiffres de 

signes divers tels que S . -, " ou 

permet de lustifier laffichage de 

plusieurs nombres 

LOOK x,y,z: retourne dans la 

variable z la couleur du point al- 

lume aux coordonnees x et y. 

OPTION: opere la selection entre 

degres et radians 

REDIRECT FROM x TO y: 

prend les entrees sur le port x el 

les renvois sur le port y, jusqu a 

generation d'un End Of File 



STYLE, PALETTE PAPER, PLOT, 
SCROLL, VIDEO COLOUR. VIDEO 
MODE) et le son (DURATION. EN- 
VELOPE, INTERRUPT. LEFT, 
PITCH, RIGHT, RELEASE, 
SOUND, SOUND BUFFER, SOUND 
STYLE, SOURCE. SPEAKER. 
STYLE, SYNC) 





II y eut un claquement metal- 
lique qui resonna jusqu'au 
trefond de ses tympans: le 
hublot venait de se reformer. 
Enfin, la machine se mit a 
trem blotter doucement sur 
ses pivots. Marie-Odile voyait 
la cuisine comme un decor 
improbable agite de soubre- 
sauts. Elle ne pouvait pas 
crier et n'en eprouvait au- 
cune envie. Elle etait tout 
simplement bien, en position 
de foetus comme dans le 
ventre de sa mere. 
Quelque chose gronda au ni- 
veau du moteur. Le bruit 
s'amplifia jusqu'a devenir as- 
sourdissant et demesure. Et 
brutalement la machine de- 
colla dans une vapeur d'enfer 
qui emplit la cuisine. 



Elle s'etait &ev£e si vite que 
le carrelage avait fondu sous 
1'impact des tuyeres. Ce fut 
comme I'explosion d'une 
bonbonne de gaz. La ma- 
chine creva le plafond qui ne 
resista pas plus qu'une sim- 
ple feuille de papier. Efle 
poursuivit sa folle ascension 
vers les etages superieurs de 
I'immeuble, arrachant tout 
sur son passage 
Au sommet, elle fit voler en 
eclats les poteries en terre 
cuite des cheminees et le 
vase d'expansion du chauf- 
fage central explosa a son 
passage. 

Liberee de toute resistance, 
la machine s'elanca dans les 
airs, rutilante sous les 
nuages argentes de Paris et 
telle une fleche elle disparut 
dans la direction pointee par 
la girouette de I'eglise de Me- 
nilmontant. Avec Marie-Odile 
Conchoux a son bord ! 
(a suivre...) 



KOLOSSAL 
ESGROGUERIE 



Bien sur ca n'est pas la 
Seine, ca n'est pas le Bois de 
Vincennes, mais II y a des 
escrocs tout d'meme, a Goet- 
tingen, a Goettingen... 
Erich Tegler, chef d'un bu- 
reau d'experts comptabtes a 
detourne pres de quatre mil- 
lions de francs aupres des 
caisses de maladie du coin. 
D'ailleurs, il ne I'a (presque) 
pas fait expres. Jugez plutot: 
un jour, le bel Erich se plante 
dans ses comptes et debite 
30O0frs de trop sur une 
caisse maladie. II s'en aper- 
coit et aussitdt previent la 
caisse maladie en question. 
La, un employe lui repond en 
substance:"laissez tomber, si 
mes chefs f'apprennent je 
vals me faire engueuler 
parce que je n'ai pas controls 
les comptes." Qui d 'entre 
vous, pauvres pecheurs in- 



formaticiens, n'aurait pas ete 
tente de recommencer ? ? 
Hein 7 Je vous pose la ques- 
tion ? Repondez franche- 
ment ! I C'est exactement ce 
qui s'est passe;Eric Tegier a 
trafique ses petits totaux, et 
avec I'argent detourne il s'est 
paye...des beaux ordinateurs 
tout neufs. Qu'on le libere sur 
I'heure I 1(11 vient de se pren- 
dre 4 ansde taule...) 




DEUX SUPER-CONCOURS PERMANENTS 

20 OOO francs de prix au MEILLEUR LOGICIEL du MOIS et un VOYAGE pour 2 

personnes en CALIFORNIE au meilleur logiclel du TRIMESTRE, 

Un concours de plus! salres a I'utittsalion de ce pro- ART.6: Le prix alloue pour le 

Rlen de bien original dans gramme. concours trimestriel sera remis 

cette tormule, pourtant nous Bonne chance! au plus lard un mois apres la 

essayons de (aire quelque Ftegiement: clflture du concours trimestriel. 

chose de different: nous orga- ART -, . HEBDOGICIEL organise ART.7: Le present reglement a 

ntsons un concours perma- de tacon mensuelle et trimes- ete depose chez Maitre Jauna- 

nent tous les mois ettous les trielle un concours dote de prix tre 1 rue des Halles 75001 

trtmestres! Et avec des prix recompensa nt le meilleur logiciel PARIS. 

dignes des programmes que du mois et du trimestre. ART .8: HEBDOGICIEL se re- 

vous allez nous enyoyer! ART.2: Ce concours est ouvert serve le droit d'interrompre a 

De plus, ce serant les lecteurs a i out au t eur de logiciel quelque tout moment le present 

eux-memes qui voteront pour S0Jt | e mater j e | sur | equel j est concours en avisant les lecteurs 

leurs programmes P™™™ realise. L'envoi d'un logiciel en un mois avant. 

sur la grille recapitulative K7 ou disquette accompagnS ART.9: La participation au 

mensuelle. d'un bon de participation de- concours entrafne I'acceptation 

s de jury, pas de decis on coupe dans HEBDOGICIEL par les concurrents du present 



reglement. 



HEBDOGICIEL: 27 r 
Foy 75006 PARIS. 



i du Ga! 



arbltraire HEBDOGICIEL n iri- constnue r ac te de candidature. 

tervenant que dans le choix ART3; La r6daction d'HEBDO- 

??• PJHK.T.TSl q ^l d ™ r AM ( G'CIEL se reserve le droit de 

% U »% °S GINA , UX et FRAN " selectionner sur la base de la 

CAIS. SI voire programme qua |ite et de I'originalite les logl- 

n est pas tout a fait au point, de | S quj sont publi e S dans | e s era declare gagnant le pro- 

un de nos specialistes vous journa ^ K gramme qui aura obtenu le 

dlra comment I amenorer pour ART 4; Ce SOflt !es | ecteurs quj p i U8 ( 0rt pourcentage de vote 

pouvolr nous fe proposer a par | eur vote determinent les par rapport a fa totallte des 

nouveau. meilleurs logiciels mensuels et programmes recus pour un 

Pour participer, il vous suHit , r i meslr | e | S . m«me ordinateur. 

de nous envoyer vos pro- ART 5: Le pf(x a || 0u6 pour , e A | n8Ji p as de favorltlsme poul 

grammes accompagnes du concours mensuel sera temis au les ordinateurs plus puissant; 

bon de participation alnsi que p | US tard un mois apres la do- ou tres diffuses. 

toutes les explications neces- f ure du conc0 urs mensuel. \ 



BON DE PARTICIPATION 



Nom 

Pre nom 

Age Profession 

Adresse 

N" telephone . 

Nom du programme 

Nom du materiel utilise 

declare etre lauteur de ce programme qui n'est ni une imitation ni 
copie d un programme existant Ce piogramme reste ma propriete et 
jautorise HEBDOGICIEL a le publier La remuneration pour les pages 
pubheessera de 1000 francs par page (un programme n occupant pas 
une page entiere sera remunere au prorata de la surface occupee) 

Signatureobligatoire 

(signature des parents pour les mineurs) 

Le programme doit etre expedie sur support magnetique (cassette ou 
disquette) accompagne dun descri ptif deta ille du materiel utilise, 
dune notic e dutilisatio n du programme Les supports des program- 
mes publies sont conserves , n bubliez~9bnc pas den faire une copie. 




QUI A DEULIGNE DEUUGNERA... 



Vous etes des bons! Vous nous envoyez tous des 
supers deulignes La selection est de plus en plus 
severe, mais vous en profiler voila de quoi vous r£- 
jouir pour au moins une semaine avec pour commen- 
cer les accessils 

Premier du lot hebdomadaire. Serge ETIENNE pro- 
pose une protection d'enfer pour tous vos program- 
mes Profitez-en ... pendant qu'il est encore temps! 



Y Listing SPECTRUM 

sbbnche f6t ?'■. fofc r«i to aee. 

PAUSE 1 8QR0ER 1. BORDER 3; ~" 
flOER 4: DORDEH 6. BORDER 3; DC 

TWtmffwii* 

IS PfiS LE REST CR I '■ : PAU9C Be 



Une lectrice vient d^montrer a tous les machos qu'ils 
ne sont pas les seuls a pouvoir sortir de grandes 
idees, la preuve Therese EVEILLEAU vous oftre des 
lettres geantes sur T07 
V Listing T07 

£0 SCREEN£,0,0!II'iPUT ,, LflRG.HttUT,TE*TE , ':L, 
h, 4 * s CLS s COL=l B ! L I G = 59: LOCATES, 0,Bi COLOR 

■:: PF Ii.jTi.ji:F0S:I = yTi;i L I •■! ( N 4" : rS- 1 = FOP...- = 0Tri7 
: IF POINT CI, J>=0THEML]NE<COL + i.L + l;'#I,LIG 
♦ ' H+l>*J)-c:C0LKLH>*I+L,LIG + (H*l>*J«H), 

30 NEMTJ, I:COLORliLOCflTEe,0,3 



Philippe B0ICHUT doit praliquer les pieds au mur 
plus de deux fois par jour II prefere done program- 
mer que tourner sa tele, en voivi le resultai. 
Y Listing VIC 20 

1 fl=3^768-F0PE=lTi>53 C--B+-?168+<B*6>+B- 

KORIivijTij/ E=--PLei 'H+t:*iM-r..>F=F*J- 
" -|=E HEX 



Pascal TRU0NG NGOC s'lnscrlt directement dans la 
cateqorie des deuligneurs de genie avec son pro- 
gramme de copie en .. Oeullgne! 
▼ Listing APPLE (if 1) 

HOME : PRINT -$ I OUCOPVt 
INPUT "SOURCE S,D/CDPT B.D/STRT TRK/EMD 
TRK" jA,B f C,D,E,Fi FOR I - ?6B To S03i 
READ Kl POKE 1 ,Ki NEXT , DAT ft 
149,3,160,9,32,217,3,96, ,1 ,96.1 , ,18,4,32, 
3,, 32, , ,1 , , ,96,1,,,,,,, ,1 ,239,216 

1 FOP T = E TO Fi FDR S - TO 15! 
HOME i POKE 7B1 ,Tt POKE 732, S: POKE 
773,16 » to: POKE 779, B: VTAB 20 i PRINT 
"TRK!" T " ,?EC: J S! VTAB 22: PRINT 
■jBQUREE"|i SGT R*i PRINT : POKE 789,1; 
CALL 76S: VTAB 22: PRINT " COPV" ; , GET 
RE; PRINT s POKE 779,16 # C: POKE 779,0: 
POKE 739,2: CALL 74K: NEXT : NEXT j 
PRINT "END" 



T;F=E 

2 F0fiG=CTOHSTEPs i VRB - = rfuuSTEP- 1 F=F+ 1 

FWti.n-!.i-B'-.F,. iCXTD.r, F=t* NEXT 

Pi.iKEFI+4I0Ij 

Grand vainqueur el gagnant des deux softs, Michel 
BOUCHER vous propose son uthtaire de copies anti- 
cafe pour cassettes Tous les caracteres son! en tou- 
ches shiftiies Failes un RUN du programme puis 
NEW Charge; ensuite le programme a dupliquer par 
LOAD"", 1,1. Mettez en place une cassette neuve et 
tapez SYS 50000 C'esl gagne: vous avez une copie 
de votre original! 
^ Listing COMMODORE 64 

1 PRINT"rM>WS»-5KC^K)BI RJST >J*»S-CH3P_ 

v T"ftswr>j _i sf-re-ciE^-ffDCSEVi.tfPc"; 

2 PRiw"s,!-CL,aii niii i>Banr-i«;«H-a~ 

^T)-tH*C "'POKEBll.TGETfl 

Pour Ihumour de la semaine, c'est Malhieu LE 
JEUNE (7ans, eh oui) qui remporte la timbale (un lo- 
giciel) pour son jeu '"Ni OUI NI MON" 
▼ Listing Apple (n° 2) 

10 TEXT : HOME : INVERSE i PRINT SPC( 
13>"NI OU! ,NI NON* SPC( 13): NORMAL : 
PRINT : PRINT : PRINT : INPUT 
"UOULEZ-VGUS LES REGLES 9 ";N*:L» = 
LEFTS (N*,l>! [F L* = *S" OR L* = "N' 
THEN INVERSE i PRINT : PRINT : PRINT 
"VOL'S AYEZ PERDU IJ I HE HE I ! ■ : NORMAL 

20 PRINT : PRINT : INPUT "VOULE:- 1 .-'OUS 
REJOUER -7 " ;N*:L* = LEFT* (NS,I): IF L* 
= *■&* OR L* = "N" THEN INVERSE : PRINT 
: PRINT : 'RINT "VOUS ETES CON OU QUOI 
?* ! NORMAL : EhlD 




Jeloche 



ilSvilSi 




teloche- 



OYEZ ' OYEZ les bonnes nou- 
vetles de ceile sematne gentils 
lecleurs Ffl 3 change de look 
enfm elle essaye quoi. avec 
les moyens du bord Les fonds 
de tiroirs restent mais la fa 
cade est renovee La chaine du 
cinema adicule sa programma- 
lion autour de soirees a 
themes le grand Frisson 
(lundi), >3 famille (mardi), les 
enfanls (sarnedi) Cote new- 
look, test rate avec le DIS 
NEY CHANNEL du sarnedi , 
75 minutes de dessms animes: 
des chouelles (les premiers 
MICKEY. DONALD. DINGO ...), 
des video-clips sur des tubes 



rmgards el le sommet du kitch 
le retour de ZORRO 
Alors quoi de neu f docfeur ? 
Decibels de nuit. u<ie emission 
de ROCK prometteuse a un 
horaire correct (le vendred' a 
21h30) et 6e trois fofs par 
mots Une scnc OC drarnati- 
ques a suspense bapi>see IN- 
TRIGUES assez megarn la 
meiiieure cette semame. Des 
moyens melrages " eroliques " 
d apres des auteurs ciassi- 
ques. La semame prochaine le 
" polar " a toutes les sauces 
sur toutes les chaines 

BOMBIX 



§£** 



NAIS 



Oyez ' Oyez bonnes gens la triste 
et veridique histoire d une pauvre 
jeune fille, damoiselle virgmale 
bonheur et fierte d' une famille 
honorable seduite et abandonnee 
par un lils de riche au coeur noir 
Venez ouir cette tragedie agreste 
entendez la geste du serviteur fi- 
dele et devoue qui. tels nos preux 
antiques, se saenfie avec abnega- 
tion pour la cause de sa dame. 
Helas ce chevalier modeme a ete 
touche par la baguette dune mau- 
vaise fee. et malgre le baiser de la 
princesse. il ressemble toujours a 
un crapaud 

Dernier episode de la longue et 
fructueuse collaboration entre 
M PAGNOL et FERNANDEL ce film 
marque en 1945 lapotheose de 
leurs carrieres respectives 
Comme tous les grands reahsa- 
teurs PAGNOL revienl indefinimenl 
sur les memes themes (opposition 
uille-campagne. pere noble, gene- 
rosite de la terre et des hommes 
qui la travaillent) qu'il affme jus- 




pourquoi suis-je aussi laid 



qua la quintessence FERNANDEL 
V ioue son plus beau role, funam- 
bule merveilleux oscillant entre le 
rire et les larmes (ne manquez pas 
la scene des petits bossus) Su- 
blime 

Diffusion le mardi 12 a 20h35 
sur FR 3. 



LE SAMOURAI . [*, 



La solitude du tueur de fond . 
Souvenez-vous il y a 3 semai- 
nes, I 'inauguration de I'emis- 
sion de Patrick Sabatrer: Le 
jeu de la verile II etait la Un 
scoop ? Non pub tout ca. 
Delon, mats oui. celui qui 
quand il lave la main droits 
pour jurer de dire toute la ve- 
rite rien que la verite, on se 
demande jusquou s'arretera-t- 
il. Le bet Alain, celui qui se re- 
trouve travailleur immigre au 
pays des banques de largenl 
et du chocolat.. ( c'est 
chouette d'etre immigre dans 
un joli pays comme ca ) .,. 
Mais c'est vrai qu'il a du talent 
ce Delon-la. Vous n'avez qu'a 
regarder ce film C'est un tres 
bon polar, bien noir, tout 
comme il faul, des policiers en 
trench coat et Borsalmo. des 
truands habilles de la meme 
facon (va savoir ...), des revol- 
vers, des belles automobiles, 
des belles femmes dont Mme 
Delon eile-meme. Mme Rosier 
(on sent Delon gene quand il 
est avec eile. peut-etre la cou- 
leur.. .). Enlin une bonne soiree 




en perspective sur FR3 Sous 
le sceau du secret, il parattrait 
que notre Delon national pre- 
pare un grand spectacle au 
Palais des sports pour Sep- 
tembre 85 avec un chanteur 
dont nous ne connaissons pas 
encore lidentite ca s'appelle- 
rait : "Lama -Delon". . 
Diffusion le 11 a 20h35. 



■ D 

la rue C'est pas possible c.a vis-a- 
vis des touristes ca fait tiesordre 
Bing bang bourn on tape dans le 
tas Mais oh drame, sans faire 
expres y'a un mort. On essaye 
bien de tiissimuler Tmcidenf 
mais voila qu'un petit juge de rien 
du tout qui ne I emend pas de 
cette oreilte (la droite) mais de 
['autre (la gauche) met les pieds 
dans le plat et y va de bon coeur 
Tous ces messieurs galonnes se 
Grece sortait a peine du regime font taper sur les doigts, enfin la 
des Colonels Maintenant meme justice triomphe... Zorro alias le 
chez eux y'a des socialistes au luge alias Jean-Louis Trirrtignant a 
gouvernement Y z'ont meme une venge les laibles. Avec une disri- 
chanteuse comedienne au Minis- bution comme on n'en voit plus' 
e fa Culture (imaginez-nous Oener, Trmtignanl, Montand (qui 
avec Adjani . ). franchement plus se fait descendre, quel comble '). 
rien a voir avec I'ambiance du Fresson, Irene Papas sont tous 
film On voit des militaires et poli- excellents, et le concombre mas- 
ciers partout, des "mediants" qui qu6 dans le role de la matraque 
n'ont pas les cheveux longs mais est inoubiiable 
quand meme... lis sont tres nom- Diffusion le 17 a 20h35 sur 
breux, et ils orient tres fort dans TF1. 



Un film de Costa-Gravas (1968) 
"pres une programmation msipide 
; sans saveur, TF1 se decide 
quand meme a faire un effort. In- 
dice d'ecoute oblige (COLLARO ne 
peut pas a lui tout seul maintemr 
le nez de TH au dessus de I'eau). 
Alors ce soir. un grand film Mais 
il est de ces films qui ont une 
morphologie presquhumaine. en 
effet avec Cage ils se ratatinnent 
A I'epoque de la sortie du film, la 



Lundi 11 Fevrier 


20h30 


C * 


: REPORTERS (voir CURIOSITES) 


20h35 


FR3 


: LE SAMOURAI (voir article! • 


20h35 


A2 


.- L HEURB DE VERITE avec J Poperen 


20h35 


TF1 


: PROPRIETE INTERDITE (voir article) 


21h55 


A2 


; ARBRES DE VIE, spectacle poetique 


22h40 


TF1 


: ETOILES ET TOILES (magazine tint- 

phage) 
: THALASSA (magazine qui garde le cap) 


23h0b 


FR3 


Mardi 12 Fevrier 


20h30 


C * 


: LA BOUM 1 {1982) film de C Pmoteau 
avec Sophie Marceau. 1' Annie Girardot 
de Ian 2000 


20h35 


TF1 


: ENIGMES DU BOUT DU MONDE (jeu 
geographique et sportif) 


20h35 


FR3 


: NAIS (voir article) + 


20h40 


A2 


.- FANFAN-LA-TULIPE (voir CURIOSI- 
TES) 


21h35 


I P1 


; ODYSSEE COUSTEAU Le Nil 


22h20 


C + 


: VIVRE VITE (voir article if 68) 


Metcredi 13 Fevrier 


20h35 


TF 1 


: DALLAS (helas) 


20h35 


A2 


: LES LENDEMAINS OUI CHANTENT 

(voir article) o 


20h35 


FR3 


.- CADENCE 3 (vanetes avariees) 


21h35 


TF1 


: CARACTERES CHINOIS (documentaire) 


21h50 


C + 


; LES BIJOUX DE FAMILLE (film avec 
des seins animes! 


22h20 


FR3 


: PORTRAIT DE SIMONE SICNORET 

(elie fume, elle boit. elle cause (et ces/ 
bien) mais elle drague plus) 


JeudH4 Fevrier 


20h30 


C + 


: KARATEKA CONNECTION (FORCE 
ONE), (le film qui tue le spectateur) 






: L AMOUR EN HERITAGE it 7 (serie 
petit budget) 






: CONNAISSEZ-VOUS MARONNE ? (voir 
CURIOSITES) 


20h35 




: AU NOM DE TOUS LES MIENS rf 2 

(preparez vos mouchoirs) 


22h00 




: NOUS NOUS SOMMES RENCONTRES 
DANS UN AUTRE REVE (1980) film de 
A. Schwarzstein 


22h00 


c + 


: LEBAL (voir article) A 






: REPORTERS (voir CURIOSITES) 


Vendredi 15 Fevrier 


20h35 


A2 


: CHATEAUVALLON 




n- i 


: MIDEM 85 (vanetes toteenatmna:?:' 


2lh35 


FR3 


: HISTOIRE DUN JOUR: 28-10-62 




A2 


: APOSTROPHES 


21h-15 


C + 


: LES MONTAGNARDS SONT LA (1938) 

film (comedie) de G. Blystone avec LAU- 
REL et HARDY 


21h50 


IF 1 


: LES BONNES . piece de J Genet 


22h05 


FR3 


: DECIBELS DE NUIT (vanetes rock) 


22h55 


C + 


: LES BIJOUX DE FAMILLE (film sens 
dessus-dessous) 


23h00 


A2 


: EL PISITO (voir CURIOSITES) 


00h25 


C + 


1 LEBAL (voir article) A. 


Samedhe Fevrier 


20h35 


TF1 


: COURTELINE AU TRAVAIL, piece de 
S.Guitry suiv de BOURBOUROCHE de 
Coureline 


20h35 


A2 


: CHAMPS-ELYSEES (Drucker ? La 
claaaasse) 


20h35 




: DISNEY CHANNEL (pour enfants. petits 

et grands) 
: DROIT DE REPONSE 


22h05 


TF1 


22h15 


FR3 


: DYNASTIE (pire que Dallas ?) 


23h00 




: LAMERIQUE INTERDITE (documen- 
taire racoleur) 


00h30 


C + 


: MEURTRE DANS UN JARDIN AN- 
GLAIS (article dans H rf 68) 


Dimanche 17 Fevrier 


I9h00 


A2 


I CLEMENCE ALETTI rf 5 (voir article) A 


20h30 


C + 


: NAPOLEON (voir CURIOSITES) 


20h35 


A2 


: LE GRAND RAID deu daventures) 


20h35 


FR3 


: ARCHITECTURE ET GEOGRAPHIE 

SACREE (documentaire mystique) 


20h35 


TF1 


: Z (voir article) □ 

; POUR LE MEILLEUR ET POUR LE 


21h35 


A2 






PIRE rf 4 : USA (documentaire sur les 






relations femmes-hommes. cest pas la 
joiei) 
: LA TRAGEDIE IMPERIALE (voir 


22h30 


FR3 






CURIOSITES) 


23h35 


C + 


: L'AMI DE VINCENT (1983). film de Gra- 
nier-Deferre 



PROPRIETE 
INTERDITE 




Film de Sydney Pollack (1964) avec Robert REDFORD, Nathalie 
WOOD, Charles BRONSON. Un inspecteur d'une compagnle de 
chemin de fer (le beau BOB) debarque dans un trou du Deep 
South pour licencier du personnel pour cause de crise economi- 
que (vous me ferez trois pages sur le theme: en quoi les metho- 
des de degraissage ont-elles changees depuis les annnees 30) 
Diffusion le lundi 11 a 20ri35 surTF 1. 



LES LENDEMAINS 
QUI DECHANTENT 

Resume. Un artisan /uif mili- — 
tant au PCF recoit la visile de < 
son neveu. vioioniste suif. et S 
sovietigue. Penpeties et desil- 2 
lusions sensuivent. £ 

Once upon a time (pour les 
autres il etait une lois) des 
hommes. des femmes, meme 
des enfants (bref des gens 
quoi...) qui avaient mis tous 
leurs espoirs dans le commu- 
nisme Quelle audace me 
direz-vous Mais, il y a toujours 
un mais (souvenez-vous 68), a 
I'epoque, cest-a-dire un peu 
apres la guerre, ca n etait pas 
encore trop bizarre pour ne 
pas dire etrange En effet. un 
vent nouveau souftlait de TEST 
(demain it soufflera du sud 
donnant quelques ondees pas- 
sageres sur la Franche 
Comte), un vent de liberie, 
degaiite. etc. C'etait plutot 
sympa. Seulement, le reveil 
est parfois difficile meme dou- 
loureux pour un communiste 
(juit de surcroit) quand il se 
rend compte que son dieu (il 
signor Staline) extermme les 
juifs . et empeche les gens de 
sortir d'URSS . Eh bien. c'est 
justement ce qui arrive a notre 
protagomste. Pas de bol. il 
croyait comme tout le monde 




qu il etait heureux et qu il avail 
raison de I'etre (ou de pla- 
tane) Eh ben. pas du tout du 
tout I La desillusion c'est 
duuuur. 

Dans ce telefilm ni complaisant 
ni primaire, une chouette de 
reconslitution histonque. Un 
Marcel (personnage principal) 
plus Krasucki que nature, des 
figurants plus vrais que vrais, 
des decors... On se demande 
si le film n'a pas ete tourne a 
I'epoque. Bref tout y est. SU- 
PERBEIi'H C'est Mr Mon- 
tand qui va etre content, ce 
film est le premier qui ('excuse 
devoir ete ce qu'il a ete, et 
d'etre ce qu'il est aujourd'hui. 
Alors circonstances atlenuan- 
tes voire Honneur ?. . 
Diffusion le 13 a 20h35 sur 



DEJA SIX CADA VRES, I 
CLEMENCE ALETTI : a 
Dernier episode. ' 



"Ashes to ashes" c'etait le bon 
temps i Dorenavanl. la mod 
frappe par disquettes interpo- 
sees et les cadavres discutent 
le bout de gras avec les en- 
queteurs grace a des video- 
cassettes. Sherlock Holmes, 
aujourd'hui, se devrait d'avoir 
un C.A.P. de programmer 
pour rester operationnel. 



veaux 1 et 2, c'est comme les 
paquets Bonux. ces! donne 
avec lemballage). 
Notre pauvre commissaire ira 
de surprises en surprises, cm- 
quidme roue du carosse elle 
en apprendra de bielles sur 
ses coliegues. son enquete et 
son avenir La fin est surpre- 
nante mais logique. 



En effet toutes les informations Alors que d'habilude coproduc- 



relatives aux meurlres prece- 
dents sont contenues dans la 
memoire centrale de lordina- 
teur silue au sous-sol du buil- 
ding entrevu au 4eme episode 
"- —avtez qur — 



tion intemationate egate bouil- 
lie mdigeste. cette realisation 
allie une image sobre, un ton 
juste, une balance egale enlre 
la psychology el faction, et de 



pis pour vous). Ces donnees rare). Excellente prestation de 

disposees en 5 niveaux d'ac- Dominique LABOURIER. pivot 

ces sont protegees par 2 mots du combat contre Big Brother 

de passe: "libertad 1789" vous Morrisson 

ouvre le 3 et le 4, debrouittez- Diffusion le 17 a 19h00 sur 

vous pour le 5 (pour les ni- A2. 









\^j-'-LEBAL A 


pa 


Film de E. S 
troupe du Th 
du meme the 
ENTREZ DAN 
histoire de ce 
meurs) coliec 
Ceci n'est p c 
filme, ceci e 
sans voix 

< 

< 


cola (1983), Cesar du meilleur film francos, avec la 
atre du Campagnol d apres la piece du meme nom et 
tre. 

5 LA DANSE, mesdames et messieurs, venez revivre I' 
siecle. entrez dans la memoire (bonjour les program- 
me . 

s du cinema, ni un video-clip de 2 rt, ni du theatre 
1 un lilm qui n'a pas d'equivalent Sans dialogues et 

I'jBf.' Bit *l' " m& 







CURIOSITES 



NAPOLEON (1953) comedie 
historique de S.Guitry ou le cabo- 
tinage transforms en vertu avec 
P. BRASSEUR, D. GEUN. P. 
CARTON. J GABIN, D OAR- 
RIEUX, J MARAIS, V MON- 
TAND. M MORGAN. H. PRESLE, 
S REGGIANI. E von STROHEIM 
etle maitreSACHAGUITRY 
Diffusion le dimanche 17 sur 
CANAL + a 20h30. 
FANFAN-LA-TULIPE (1952) 
film de Chnstian-Jaque avec G. 
PHILIPPE au meilleur de sa 
forme Un classique deja muiti-dil- 
fuse\ 

Mardi a 20H3S sur A2. 
EL PISITO (1958) premier film 
de Marco Ferrari, une fable sa- 
tirique espagnole sur 

Camour.lnterdit par FRANCO, 
un prix au Festival de LO- 
CARNO 

Cine-Club le vendredi 15 a 
23h00 sur A2. 



CONNAISSEZ-VOUS MA- 

RONNE ?Une dramatique de 
M. Dugowson d'apres le roman 
de D.Boulanger, un duel su- 
perbe entre le commissaire 
(R.PLANCHON) et le lemoin 
/assassin (S.FREY).Fin et psy- 
chologique. 

Diffusion le jeudi 14 sur FR 3 
a 20h35. 

LA TRAGEDIE IMPERIALE 

(1937) Mm de M. L' Herbier Un 
melodrame lyrique avec le genial 
Harry BAUR en Raspoutine. et une 
musique signee Darius MILHAUD 
Diffusion le dimanche 17 sur 
FR 3 a 22h30. 

REPORTERS (1981) film do- 
cumentaire sur la campagne 
electorate vue par des journa- 
listes et des reporters photo- 
grahes. Demagogie decorti- 
quee. Superbe. 

Diffusion le lundi 11 fevrier a 
2Dh30 sur CANAL ; . 



^ 
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N.D.L.J.C: Vous avez vu lEdito- 
retle? Super non? Enfin on 
prend ma defense mats je ne 
m'oppose pas a ce quon me 
dise "jolie" Celui qui ose dire le 
contraire, se level Par conlre les 
redacleurs c'est normal quon ne 
dise pas qu'ils sonl mignons, 
parce que c'est pas vrai tiensl 
Bon ca va, vous pouvez vous 



HECTOR 

VENDS HECTOR HRX 48Ko + 
joystick + jeux + livres (valeur 
6000 F.) Vendu 4500 F E 
LESUR Ecole maternelle Bos- 
quet 59135 WALLERS AREN- 
BERGTel:(27)24 10 19. 

VENDS Hector I Victor !) HR + 
Cable peritel + connecleur NB 
+ manettes de jeux + K7 Basic 
+ K7 Videocalc + plusieurs K7 
jeux + manuel dutilisation tres 
detailie Prix 3000 F J. Pierre 
MADERN 53 rte de Perpignan 
66330 CABESTANY yeel: (68} 
50 50 04 (heures repas) 

VENDS HECTOR II HR + mo- 
dule basic + 7 K7 + livres + 2 
joysticks + schema * routine 
de la ram + dictionnaire des 
basics pour HECTOR + prise 
peritel (valeur 6920 F) vendu 
4000 F Francois P Cilofe rue de 
bourgogne 55200 Commercy. 



CANON 

VENDS Canon X07 16 K 4 im- 
primante 4 couleurs X710 ave 
adaptateur secteur avec traite- 
ment de texte Pocket soft + cor- 
don K7 + programmes hebdogi- 
ciei soft n° 1 avec accessoires 
d'origine.Pnx 3300 F ou Facilites 
de paiement 6 x 600 F Tel (6) 
494 96 42 

VENDS CANON X07 8K: 1500 
F. + extension Chip 8K: 500 F 
-i- alimentation secteur: 40 F + 
Imprimante 4 couleurs: 1300 F. 
+ 2 cartes memoire 4K: 600 F. 
+ 4 stylos et 6 rouleaux papier: 
60 F. + manuel, programmes et 
sacoches de transports: 60 F. 
Ou I'ensemble pour 3800 F An- 
toine CRAME 17 rue Anatole 
france 69120 Vaulx en Velin 
Tel: (7) B80 94 47. 



COMMODORE 

VENDS COMMODORE 64 + 
unite de disquette 1541 + moni- 
teur + sybthetiseur de voix + 
basic entendu + nbrx kprgrms 
(4 de 300. ultima ill, geopolili- 
que 1990, flight simulator 2, 
chess...) + joystick + 2 pascal 
+ docs + 3 livres Prix 8500 f 
Tel 589 17 76 demander Phi- 
lippe. 

ECHANGE programmes, jeux, 
et ulilitaires pour COM 64 avec 
K7 et drive Heinen Olivier rue de 
sesselich 184 8 6700 ARLON 
Belgique 

VENDS VIC 20 + joystick + 
jeux + K7 + Extension 8K + 
manuels utilisation. Tel: (56) 52 
60 58 (apres 19 H). 

ACHETE COM 64 + lecteur de 
cassette + jeux ATTIMONT 
Jean-Marc 31 bis roe kleber 
83200 Toulon Tel (94) 62 34 46 



VENDS COM 64 (pal/secam) + 
magneto + tool 64 + manette + 
livres + 4 cassettes Prix 2990 F 
Tel (21)52 50 51 

VENDS COMMODORE SX 64 
+ joysticks + Soft onginaux 
avecs doc + autres program- 
mes - livres Prix 15000F Anne 
Tel 579 74 25 

VENDS COM 64 solo flight Prix 
100 F BCs quest for times Prix 
100 F simons basic Prix 250 F 
et nombreux autres programmes 
BRASSEUR Pascal (86) 87 01 



VENDS COM 64 + the hobbil * 
beach head + 150 programmes 
langage machine + lecteur K7 
+ moniteur 12 + vie rel + 6 
livres (assembleur etc..) + 3 
manettes de jeux (valeur 5970 f) 
Prix 4500 t a debattre Pierre 
PAYOUX Tel (66) 87 10 29 
(apres 19 H) Combes des 
amaves 30800 st Gilles 

VENDSs COM 64 pal + 1 lec- 
teur disquettes 1541 + prise pe- 
ritel * commodore magazine n° 
1 et 2 + livres + revues diver- 
ses Prix 5000 F MR POLLYN 
92110Clrchy Tel 730 04 87 

VENDS CBM 64 Secam + 
Joystick + datasette 1530 + 
Tool 64 + 2 livres + jeux Way- 
der. Fort apocalypse. Jeep, Hu 
Bert, Cyclotron + 130 logiciels 
divers en langage machine. Le 
tout 4500 F Frederic AMREIN 3 
impasse Jassat 63000 CLER- 
MONT FERRAND Tel: (73) 92 
70 71 



DRAGON 

VENDS DRAGON 32 version 
peritel + uhf 4 2 manettes jeux 
+ 3 livres + documents + im- 
primantes seikisha GP 100 avec 
cable + 11 logiciels ulilitaires 
dont: forth traitement de texte + 
14 jeux dont simulation de vol , 
echecs Prix 4500 F Francois 
CHEVILLON 6 rue auguste Re- 
noir 95370 Montigny les cormeil- 
lesTel997 10 94 

VENDS DRAGON 32 + manuel 
d'utilisation + doc + UHF 4 pe- 
ritel + geo 32 + pinball + hor- 
ror castle i pack 3 (9 prg) t 50 
pgs pers +■ lect K7 special ordi- 
nateur ■+ 2 joysticks (valeur 
5000 F) Prix 3500 F DEFINOD 
Step h an e 25 residence le lac 
73100 Aix les bains Tel (79) 61 
42 89 apres 18 H 
VENDS Dragon 32 4 alimenta- 
tion / cables + jeux : 2600 F. E. 
ANTOINE 1 rue Jean Mermoz 
94430 CHENNEVIERES SUR 
MARNE Tel: 576 57 12. 



ORIC 

VENDS ORIC atmos 48 K + 
cordon kperitel + alimentation -■- 
cordon magneto + manuel utili- 
sation + 4 theoric + 2 K7 Prix 
2200 F Duchesne s jean-claude 
29 rte nationale Romeny 
S/Marne 0231 Charly S/Marne 

VENDS ORIC Atmos + livres + 
listing + 100 programmes ali- 
mentation Prix 2500 F Tel 051 
52 41 apres 20 H 

VENDS ORIC Atmos 48 K 4 
tous ses cables + peritel + 
alim. + lect K7 et cordon + 26 
jeux en K7 (software 1& 3 aigle 
d or diamant »ile maudite super 
jeep lancefot tendre poulet etc.. 
+ environ 200 programmes 
divers + joystick + interf + 4 
livres ( gestion, assembleur, ini- 
tiation basic, jeux) + manuel 
Prix 3000 F (valeur 4700 F) 
Alain Malta 2 square leninl 
93100 Montreuil Tel 857 52 98 

VENDS ORIC 48 K 4 peritel 4 
alimentation + livres + 2 K7 ini- 
tiation basic + 2 joysticks + in- 
terface + magneto compatible 
neiif + cordon raccordement 
Prix 2500 F a debattre Tel 457 
26 18 



VENDS ORIC 48K 

tion secourue + livres + K7 

jeux ( skramble + frigate + 

poker) + cable peritel Prix 2000 

F Mr Legros 7 rue des peupliers 

mesnis le roi 78600 Tel 962 79 

35 

VENDS ORIC 48 K + peritel + 
nbx jeux 30 environ 4 5 livres + 
revues Prix 1600 F moden dll 
2000 Prix 800 F le tout 2000 F 
Dronikov greg. 87 av. mauricse 
Thorez 94200 Ivry Tel 670 21 



27 



VENDS PC 1500 + extension 8 
KO + manuels Prix 1800 F a 
debattre (3) 914 99 72 deman- 
der Didier 

VENDS SHARP MZ 700 + 10 
jeux + prise peritel *• magneto 
incorpore + alimentation et ma- 
nuel 64 K vive (valeur 3800 F) 
vendu 3000 F Tel (4) 427 71 80 
demander Denis 

VENDS SHARP PC 1500 Prix 
1000 F Mr Gasquerel Tel 1(3) 
974 65 90 heures de bureau 



VENDS pour PC 1500 impri- 
mante CE 150 + divers pro- 
grammes et revues. Daniel 
PETIT rue du Dos d'ane 36160 
STE SEVERE. 

VENDS PC 1500 + CE 150 - 
RAM 8K ,.+ PSI + manuels: 
3000 F. Isabelle GOUGEON 1 
route de St Leu 93800 EPINAY 
SUR SEINE. 



SPECTRUM 

VENDS Spectrum 48 K + peritel 
+ interface et manette de |eu + 
90 programmes du commerce + 
livres revues sur le Spectrum 
Prix 2000 F Tel 491 87 24 

VENDS Spectrum 48 K + pal 
peritel + uhfn.'b + synthese vo- 
cals + livres + 30 |eux Prix 
2800 F PERRICHON Olivier 3 
Villa de la Paix 92130 Issy Tel 
642 70 57 (apres 20 heures) 

VENDS Spectrum 48 K peritel 
(avec son) + crayon optique et 
sa K7 Prix 1800 F insterface ZX 
1 et microdnves (avec 5 micros) 
& logiciel Prix 1800 F logiciels 
util vox multifichiers micro print 3 
d move assembleur Prix 600 F 
logiciels jeux alchimist aval on 
arcadia cobalt Fantasia jet set 
willy manager manoir dr genius 
Othello panic titanic transylva- 
nian tower trashman Prix 850 F 
logiciels utihtaires +- jeux Prix 
1300 F Prix de I ensemble 4650 
F Didier ELIPOT 5 rue Meau- 
lens 62000 Arras Tel (21) 58 67 
65 (apres 1 7 H 30) 



T07 

VENDS moniteur couleur 
THOMSON prise peritel pour or- 
dinateur ou magnetoscope avec 
son incorpore 220 V et prise 12 
V. Valeur (3450 F) Vendu (2300 
F). GUILLEMOT Daniel 15 rue 
la Bruyere 93800 Epinay Sur 
Seme Tel: 412 16 33 

VENDS T07 + lecteur K7 4 ext 
jeux + 2 manettes + 3 livres 
d' initiation au Basic Prix 2000 F 
a debattre. Tel 682 07 24 de- 
mander Sebastien 



P.S.S. International societe de 
soft anglaise cherche traducteur 
de programme langage machine 
T07/M05 Peies Watts. P.S.S. 
452 Stoney Stanton Road Co- 
ventry Anglelerre 



TRS80 

VENDS nombreux programmes 
basic et assembleur pour TRS 
80 (sargon I, scarfman. pene- 
trata, . ) N.O.L.J.C: Je suis sure 
que le dernier il est porno!..) 
Herve Henrion 163 rue de ter- 
rain e cosnes et romain 54400 
Longwyte Tel (8) 224 27 28 . 
VENDS configuration TRS 80 
Dernier modele 111 + 48K K7 + 
imprimante DMP 100 + ma- 
gneto, lot K7 programme Tandy 
+ livres et divers programmes. 
Le tout 8000 F. D. BOSSON- 
NAY tab (3) 093 37 70. 



TEXAS 

Pour TEXAS unlquement et sur 
toulouse uniquement, fonde club 
echange toutes sortes (hard, 
soft K7 diquettes et module 
basic simple basic etendu ou 
assembleur) et aussi echanges 
astuces. A tout nouvel adherent 
j'offre un logiciel du commerce 
pour renseignements et adhe- 
sions Hubert Trouper 31 rue des 
geranium 31400 Toulouse TEL 
(61) 52 56 10 |e CHERCHE 
egalemenl le module startrek 
ACHETE Tl 99/4A peritel + ma- 
nettes f basic etendu Tel 886 
56 64 apres 18 h 

VENDS pour Tl 99/4A ext basic 
Prix 600 F minimem + ass Prix 
700 F blasto Prix 150 F ou 
ECHANGE contre imprimante 
Dauris Eric 13 rue helene bou- 
cher 17300 Rochefort Tel (46) 
99 87 46 

CHERCHE pour Tl 99/4A basic 
etendu francais mini mem ext 32 
KO modules peripheriques cas- 
settes et divers livres 
ECHANGE module munch man 
Mr Thierry Vilebrue O6560 Val- 
bowne Tel (93) 42 03 04 apres 
mid i de preference 

VENDS Tl 99 4A \ basic 
etendu + mini memory + echec 
+ livres Prix 2000 F Tel 528 81 
1 apres 1 9 h 



CHERCHE boitier d'extension 
peripherique pour Tl 99/4A Tel 
(28) 64 91 85 le soir 

VENDS pour Tl 99/4A module 
de jeux alpiner Prix 200 F et un 
module pour adulte gestion de 
rapport Prix 200 F Baubimont 
sebastien 77 allee des charmes 
Marcq en bareuil Tel 16 (20) 72 
71 54 

VENDS pour Tl 99/4A k7 sun 
games Prix 90 F + lunar lander 
II Prix 90 F + king kang Prix 75 
F + tractors folies Prix 75 F + 
le basic par soi meme Prix 60 F 
+ jeux retro II Prix 90 F partici- 
pation aux frais de port et d'ex- 
pedition en recommande + 15 F 
Mr Saintellier eric 6 place craix 
rousse 69004 Lyon 

ECHANGE pour Tl 99/4A pro- 
grammes sur K7 et recherche 
extension et modules a bas prix 
Tel (1)358 64 99 (apres 21 H) 

ACHETE pour Tl 99A4 mini 
memoire 4 manuel (aire offre a 
JC Glrod Tel (43) 94 78 57 

VENDS Tl 99/4A + cordon ma- 
gneto + basic etendu + parsec 
+ mannett.es de jeu + nom- 
breux programmes (BS & BE) 
Prix 1800 F Tel (16 7) 826 00 

37 le week end 

VENDS Tl 99.4A + manuels + 
extended basic + module echec 
+ paire de manettes + cordon 
+ magneto + prise peritel et se- 
casm + nbx programmes sur K7 
+ livres surs le Tl 99/4A Prix 
3000 F avec TV noir et blanc le 
lout 3300 F Salort herve 6 im- 
passe pasteur 82100 Castelsa- 
rasin 

VENDS pour Tl 99/4A module 
jeux (echec alpiner munch man 
tombston pole position Tel (K4) 
405 03 25 

VENDS Tl 99/4A + prise peritel 
+ manette de jeu + cordon K7 
+ revue Tl 99/4A + 3 livres de 
programmes Prix 1000 F Tel (6) 
008 49 71 Daniel Lacampagne 
77500 Chelles 

VENDS Tl 99/4A prise p6ritel 4 
magneto K7 + cordon magneto 
+ nombreux programmes sur 
K7 + pratique niveau 2 + 50 
programmes (editions radio) Prix 
1500 F Tel 843 96 84 le SOir 

VENDS Tl 99/4A + ext basic + 
enregistreur avec'cables + joys- 
ticks + module echecs francais 
+ nombreux programmes sur 
cassettes + documentation Prix 
12000 FB Levay frederic av. 
Reine as trid 166 bte 14 1810 
Wemmel Belgique Tel 02/479 88 
10 

VENDS pour Tl 99/4A memoire 
extension 32 K exterieur jamais 
utihsee Prix 1100 F Tel (1) 859 
50 93 

VENDS Tl 99/4A + peritel + 
cordon K7 + 3 modules jeux 
(carwars, blasto, chisholm trail) 
+ manettes + manuel. Le tout 
1150 F. F. MICHELET 29 ave- 
nue d'aix "le village" n° 20 
13120 GARDANNE Tel: (42) 51 
22 00. 

CHERCHE modulaleur Secam 
pour Tl 99/4A. faire offre a Vi- 
vian VIDAL College leo larguier 
4 rue de la republique 30110 LA 
GRAND' COMBE. 

VENDS Tl 99/4A + Peritel + 
boitier ext. + ext. 32K + control 
+ Floppy int. + floppy ext + 
manettes +■ basic etendu + disk 
manager + Ediieur assembleur 
4 5 cartouches + notice techni- 
que + conduite du Tl + la prati- 
que du Tl (1 et 2) 4 jeux et ro- 
grammes. le tout 10000 F. J 
Charles (84) 79 03 61 (aprs 19 
H sauf Week end). 

VENDS Tl 99/4A + paire de 
manettes de jeux 4 cable liai- 
son magneto + jeux sur K7. le 
tout 700 F. Vioncent RINCHE- 
VAL 23 Ter rue des Sablons 
95270 BELLEFONTAINE Tel: 
471 24 64. 

VENDS TI99/4A + magneto + 
cable pour magneto + modules 
Miss pac man, Football, Space 
invaders, Chasse au Wumpus, 
Tombstone city 4 livre et K7 
techniqe de jeu II + livre 50 pro- 
grammes + programmes non 
tapes le tout 3000 F Tel: 075 

38 02 

VENDS Tl 99-4A 4 cordon K7 
4 manuels f programmes + 
alimentation PHS 60 + Basic 
etendu + Parsec + 10 K7 * 
manettes Le tout : 2000 F re- 
naud BRETON Tel. 626 1 1 22 



VIC 20 

VENDS VIC 20 PAL 4 adapta- 
teur Secam Peritel PS 2000 4 
lecteur K7 4 ext. 8K RAM 4 5 
livres sur la pratique et program- 
mes de jeux: 2000 F. Bruno 
MONIERETel 254 66 10. 
VENDS VIC 20 4 modulateur 
N/B (1000 F.) 4 Hesmon: 200 
F. + Cour Basic: 100 F. + 6 
livres + programmes (valeur 
3300 F.) Le tout 1500 F Denis 
CHARTON-GERARD 354 rue 
du Pere Hilarion 54700 Pont a 
mousson 

VENDS VIC 20 4 module TV 4 
Lecteur K7 4 joystick 4 2 car- 
touches (Cosmic Cruncher, 
Omega Race) 4 Une K7 de 3 
jeux et un fichier: 2000 F. 
Echange dordinateur possible 
J. David MINGAM Residence 
Arago 2 Bat A Appt 37 33600 
PESSACTel (56)45 72 13. 

VENDS VIC 20 * magneto 4 
autoform Basic 4 super expan- 
der • Prog. Aid * assembleur 
desassembieur . Pac man 4 
q . in-.:. ■ Gndrunner t autres 
jeux et nombreux hvres et lis- 
tings - joystick Le tout 3000 F. 
Pnilippe PLAZANET Tel: 564 97 
09 

VENDS VIC 20 Peritel 4 Secam 
+ ext 16K 4 Ext 3K Super ex- 
tender + magneto CBM 4 auto 
form, (livre + K7) + livres: 2500 
F. Tel: (37)29 72 20. 
VENDS pour VIC 20 cartouches 
de jeux Star Battle, Road race. 
Rapt race. Le lot 400 F. + 1 
programme sur K7 D. BRIOT 7 
rue Pierre et Marie Curie 92360 
MEUDON LA FORET Tel: 632 
39 83, 

CHERCHE manettes de jeux 
pour VIC 20 Gilbert COUZON 
13 rue des Remparts 21250 
SEUVRE Tel: (80) 21 15 01 
(apres 18 H). 

VENDS VIC 20 4 peritel + ma- 
gneto 4 16 KO 4 bico 4 car- 
touches de jeu 4 nombreux pro- 
grammes sur listings ou K7 + 
revues 4 livres en anglais et 
frangais Prix 3600 F Tel 707 52 
42 

VENDS VIC 20 pal + 16 K7 4 
lecteur de cassettes 4 cassettes 
4 Bislio Prix 1500 F a debattre 
Tel (88) 61 08 SO 

VENDS VIC 20 pal/secam sous 
garantie + autoform ation au 
basic 4- logiciel Prix 1000 F Fa- 
brice Sabatier 6 rue franz hals 
2110 Dijon Tel 16(80)72 16 46 
N.D.L.J.C: Tiens, je savais pas 
que Sabatier faisait dans I'infor- 
matique... Bonjour les brosses a 
dents!) 

ACHETE pour VIC 20 ext 16 KO 
4 joysticks Prix 250 F Tel (97) 
47 30 81 



ZX81 

VENDS ZX 81 16 KO + ma- 
gneto 4 6 K7 4 6 livres de pro- 
gram mati on 4 programme 
divers (valeur 2200 F) Prix 1500 
F Tel (4) 456 17 69 apres 19 



CHERCHE contacts pour 
echange de programme de toute 
sorte (programme tire de revues 
ou programme du commerce) 
sur ZX 81 echange sur cassette 
prefere Bresacque Olivier 12 bd 
de lancelot 07000 Pfivas 

Passionne d'electranique et d'in- 
formatique depourvu de tous 
moyens CHERCHE materiel in- 
formatique (ZX 81) si possible 
donne toute ma gratitude et 
rembourse frais d'envois Daniau 
stephane 66 rte des amis de la 
nature 85340 Olonne S/mer Tel 
16(51)33 13 48 

VENDS ZX 81 4 16 K 4 carte 
graphique et sonore A.G.B 4 
reset + 7K7 + 200 programmes 
IKet 16 K 4 2 livres 4 1 ZX 81 
pour piece de rechange 4 1 
transfo 4 revues Prix 2000 F 
Tel 16 (e& ) 83 87 70 

VENDS ZX 81 + 16 KO memo- 
tech + clavier ABS 4 3 casset- 
tes (chess, hopper, krasy kong) 
4 nombreux livres 4 impriman- 
tes alphacom 32 4 5 rouleaux 
Tel (29) 78 33 79 55500 Lrgny 
Aimerai fonder club sntormatique 
pour ZX 81 Spectrum ou T07 
70 M05 avec jeunes de 11 a 13 
ans dans la region de pans sud- 
ouest au environs de Versailles 
ou Gyf sur Yvette THOMAS 
Adeline 9 les qumconces 91190 
gif yvette Tel 90? 37 30 



DIVERS 

Echange C.B.S Coleco 4 2 car- 
touches (don key- kong deca- 
thlon) 4 adaptateur UHF avec 
programme (listing ou K7) et un 
manuel contre Spectrum, Atari 
etc TOURNADE Laurent 55 av. 
de verdum 12200 Ville Franche 
de rouergue 

CHERCHE toute sorte de pro- 
grammes pour Amstrad CPC 
464 SHULLER Fabrice 5 rue st 
bruno 67200 Strasbourg 

VENDS HP 1 2 Prix 700 F Heb- 
dogiciel n° t a 60 Prix 250 f G 
BOISSARD 4 chemtn des Jines- 
tes 33610 Cestas 

CHERCHE copie d'articles 
parus dans "L'ordinateur person- 
nel" n° 8 et "SVM" n" 8, 10 et 
11 Remboursemenl des frais 
assure Monsieur FRANQUENK 
Tel: (94) 53 98 88 (83602 
FREJUS) le solr. 

VENDS M05 4 lecteur K7 4 5 
K7 4 crayon optique + 4 livres 
programmes Prix 2500 F Ber- 
nard BEHR Tel 260 18 28 

VENDS BASIC Etendu francais 
4 solar system 4 lunar jumper 
4 king kong 4 tractor folies -1- 
le rubis sacre 4 global rascue + 
hebdogiciel n° 2 4 10 program- 
mes Prix 1200 F Attimont jm 31 
bis rue kleber 83200 Toulon 

VENDS lecteur de disquettes 
Teac 40 pistes simple face: 700 
F. * VENDS Vectrex -<■ jeu in- 
corpore 4 3 cartouches 800 F 
4 VENDS imprimante graphique 
4 couleurs: MCP 40. 900 F 4 
VENDS moniteur NB Prince: 
500 F Franz JOURDAN Tel: 
487 86 14. 

VENDS AQUARIUS neuf + 
prise Peritel + manuel d'utilisa- 
tion : 800 F. Fabnce ROUS- 
SEAU 23 rue Pierre Loti 17560 
BOURCEFRANC Tel: (46) 85 50 
58 (apres 19H). 

VENDS LYNX 48K 4 tous les 
cables 4 manuel 4 K7: 1500 F. 
VENDS imprimante Centronics 
GP 80: 800 F. M.F. JOURDAN 
Tel: 487 86 14 (apres 19H). 

VENDS LYNX 48K 4 Moniteur 

+ 7 cassettes de jeux + 3 hvres 

4 4 revues "Oeil de Lynx": 4500 
F. Ecrire a Tristan SALMON LE- 
GAGNEUR 54 rue de Bourgo- 
gne 75007 PARIS. 

VENDS ordinateur de jeux Vi- 
deopac C52 , + 5 cartouches: 
Duel. Sky, Golf, Bowling Basket 
(jeux) et Samourai. (valeur 1850 
F.) Vendu 1200 F Monsieur 
JAFFREDO Tel: (99) 66 12 63. 

VENDS moniteur video Zenith 
Data Systems 4 cable de liai- 
son moniteur ordinateur: 700 F. 
Tel: 009 31 75. 

VENDS SEGA SC 3000 32K 4 
starjacker + Yamato 4 2 joys- 
ticks: 1800 F. Tel: 222 46 78 (le 
soir). 

VENDS Video Genie 3003 
compatible TRS 80 4 magneto 
4 nombreux programmes + 
nombreux listings 4 nombreu- 
ses documentations: 1500 F. 
Marc LHOPITALLIER Tel: 532 

71 39 (apres 17 H). 

VENDS modules Bugertime + 
Hopper 4 star trek 4 The attack 
4 tombstone city 450 F le 
tout Possibility vente separee. 
Demander Laurent au (27) 44 
99 17 (59282 Dauchy les 
mines). 

VENDS ITT 2020 4 moniteur 
vert 4 nombreux programmes: 
4500 F. Alain VINCENT Les atti- 
gnies Crezieu la varenne 69290 
CRAPONNE. 

VENDS BBC B Peritel 4 cordon 
magneto 4 logiciel B CALC 4 
livres + nombreux programmes: 
5000 F. B. CHARIER 94100 
SAINT MAUR Tel: 283 22 92. 

VENDS VICTOR 1 16K + lec- 
teur K7 incorpore 4 K7 basic 4 
2 K7 jeux 4 2 manettes jeux 4 
1 manuel: 2000 F. Monsieur LE- 
FEVRE 63 La chataigneraie 
37250 VEIGNE Tel: (47) 26 10 

72 (apres 1B H 30). 

VENDS LYNX 48K 4 moniteur 
monocrome ambre 4 cordon 8 
tons + Peritel 4 cordon K7 4 8 
K7 jeux 4 livres 4 4 revues Oeil 
de Lynx (valeur 5000 F) Vendu 
4000 F T SALMON LE GA 
GNEUR 54 rue de Bourgogne 
75007 PARIS 



*& * 




t^ v w?# 




*'fj&/ 


m%\<n w.?w»A Bzj%» 


1 iuurt»(iu. I ySi \ 




B^tNMWnUMn 1 f^^^M 


-r<K A^x~sm 


\gwmtwu 1 J||||§ 




ll(jp 






i^^Py 


M 



Ti^A 


TiK /cH^W-ATAS^.' ) 


TiKA 


TK \b'£STSH?vi// 


TtKA* 




Wl 


wnj/5y* ^ AABU ^r~ 


3iP^ 




A 


Mili-^a <?ue a r 


K 

nil 


- 


^gf^FPoWSSE/. 


V 


wm£% "■■ WmM 



v^ 



tf 




>1U VoiS PAS 



■jA 



TfcHS ^^p^lcHEPl : ^E , 




T'Ai FAiTUHPoTA" ; 


/(2S^ 


"^SSST^-S^ 




|; -' 


>=<^K# J 


- } !H 


1- 


v \- H» J£ 




/ , W-^ 




■ivvpBsSr 




£*■ M'-Mm '-'' Bl 


c^yf 


H^tH I|> 


J Lw/M* 


^■r V -J ^#m*.^W^ 






oui ooi, <£ Te Foi& IA Mix 
MoiJ PeTIt 6^i'e AooRe' 









SiTu 
TpK<*E6 40X 

IAIW 




(j-WA rVM6A 








DEMANDEZ LE PROGRAMME soft-parade 



Achetez vos logiciels les yeux fermes, nous les avons testes pour vous 



Nous avons selectionne pour vous les meilleurs logiciels actuellement disponibles en France. Nous ne 
pretendons pas que cetteliste est complete et definitive etil est evident que nous yrajouterons regulie- 
rement des programmes. Pourtant, vous chercherez en vain certains programmes qui jouissent d'une 
bonne reputation et qui se vendentsurtout grace a la publicity et aux conseils des vendeurs quinepeu- 
vent pas connaitre tous les logiciels disponibles. 

Les prix sont, nous I'esperons, les meilleurs du marche et les abonnes - anciens ou nouveaux - benefi- 
cient en plus d'une remise de 10 %. Si vous etes nombreux a nous suivre dans cette experience nous 
pourrons rapidement arriver a faire baisser les tarifs des fournisseurs pour atteindre I'objectif que nous 
nous sommes fixe: ramener les prix a une plus juste vateur ! 

Les classements sont faits en fonction de I'interet du programme et ne tiennent pas compte des prix, 
c'est a vous dejuger de I'opportunite de la depense. N'oubliez quand meme pas que si le rapport quali- 
te/prix est mauvais, le logiciel ne peut figurer dans cette page ! 




mvmm 



Si vous etes ABONNE. 
dedulsez VOUS-MEMES 
vos 10 % do REMISE 
sur Is bon de commande. 




COMMODORE 6-5 



nouveau 



HMO O VI R MOSCOW. 



UNDER WUHLDE 



16 RUNNER CHAMPIONSHIP. 






RADAR RAT RACE 



BACKGAMMON 
STANLEY 



ULTIMA ZONE 



SCORPIRUS 

REVENGE OF THE MUTANTS CAMELS 



SIMULATEURS DE VOL ANDC° 



-\'Z'.mt.'\ri l'fn(?:i it 



TALES OF THE ARABIAN NT 

CHINESE JUGGLER 
MATCH POINT 
BOZO'S NIGHT OUT 
ATICATAC 






MASK OF THE SUN 



SUPER JEEP 



HARD HAT MACK 



P1NBALL CONSTRUCTION 



NECROMANCER 



LOGICIELS 


OrrflMlwt. 
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Monwnl 
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+ 15.00 


REDUCTION ID -. SPECIAL WONNE5 * DED 
N'aWMHF rnMiaalnifpl 
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MONTANT.pavef . 





.EMZAXXON 

IICRD SURGEON 



GHOSTBUSTERS 



LE VOVAGEUfl DU TEMPS 



OA1C1/ATMOS 
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PUBLICITE 




5» 




H6 oui, de la public He dans Hebdogiciel, nous rentrons dans le rang? Vous rigolez ou 



quoi? Les annonceurs que vous voyez la, id, dessous se sont engage's a faire 5 % de 
remise aux abonnes de I'hebdo sur TOUT le magasin, y compris sur les ordinateurs, les 
fournitures et les peripheriques. C'est pas de la bonne publicity, ga, Madame? 



S.A. LHOMME 

NOMBREUSES MARQUES DISPONIBLES 
LOGICIELS, LIVRES 

CONSEILS EN INFORMATIQUE 

INITIATION A LINFORMATIQUE POUR LES 

ADHERENTS DE LA CASE MICROCLUB 



TOUTE LA MICRO CHEZ 
S.A. LHOMME 

5, rue Fanfreiin 16000 Ansouleme 
(45)95.27.37. 




> THOMSON-M05-T07.70 
» POINT CONSEIL TIFY 
» MSX - YAMAHA - SANYO 
. L1BRAIRIE . . 

Sinclair - 

mm 

29. rue Paillot de Mont a be rt 
10000 TROYES 
Tel (25) 73.23.49 

Present a /'exposition Infor- 
matique SIMABE (bid de Bel- 
glque, TROYES) 



CBS 



VIDEO 107 INFORMATIQUE 

♦ ♦ ♦ ♦ ♦ 



PLACE DES FETES 
75019 PARIS 



QL SINCLAIR DISPONIBLE 

COMMODORE, ORIC, AMSTRAD 

EXELVISION 



E=i.cn.i.R 

Automatismes - Micro- Informatique Rouennaise 

. L'INFQRMATIQUE A TOCIS LES NIVEAUX 



- AMSTRAD 

- COMMODORE 64 

- ELECTRON 

- EXELVISION 
-M05 

- T07. 70 



-MSX 

- SPECTRUM 
-ZXBl 

- SANYO 550 et 555 
-ORIC/ATMOS 



. PLUS DE 600 LOGICIELS POUR LES MICROS 
* Creation de logiciets personnalises pour PME/PMI 
■ Formation, mise en ozuvre, service apres-vente 

AMIR c'est aussi les logiciets utilttaires et les 
jeux pour ATMOS : ED1TEXT, AMIFICHE, KIT 
FUNCTION, et bientot APIS, STAREX, LE 
PRINCE KHARIiA. 
50, rue de Fontenelle 7BOQO ROUEN 
Tel: [35) SB- 56-94 



VIDEO TROC 

VENTE - ECHANGE - DEPOT DE 

TOUT MATERIEL VIDEO ET MICRO- 

INFORMATIQUE - LOCATION DE JEUX 

\nOSPRIXNEUFS!\ 



COMMODORE 64 i 2690 r LECTEliR !)'.]■ :>!.■:-' m. 

MOMTEilR COVLEUR .* 2490 f MONITEUR ECRAN AMBRE . 950 F 
AMSTRAD MSX CANON V 20 : 2990 F 

+ MONITEUR MONOCHROME : 2990 F 
+ MONITEUR COULEVR : 4490 F 

IMPR1MANTE BROTHER M.I009 : 1990 F 

OUVERT DU MARDIAV SAMEDI DE 10 H A 19 H OC 
LE LUNDI : DE 14 H A 19 H 

89 bis, rue de Charemon 75012 PARIS 

let. ; 342.IS.54 

metro : gare tie Lyon, Leiiiv Rollin 



BMP 



LA MICRO INFORMATIOUE A LYON 



20, rue SERVIANT 69003 Lyon 
til. I (7) 860.84.27 



LE SPECIALISTS DES LOGICIELS 
APPLE ET THOMSON MOS &T07 



L'EXPERIENCE MICROPUS 

La Maison de I'lnfontiatique 
. MICRO-ORDINATEURS PERSONNELS : 

- ORJC - ALICE 

- SINCLAIR - ELECTRON 

- THOMSON - MSX 

- COMMODORE - AMSTRAD 

- LAZER - EXEL 100 

- CANON - DRAGON 
Nous disposous de la quasi tot a lite des accessoires 
et ptriplu-riiiiies associes a nos marques et ceci 
durant loute Vannee. 

. COURS DE FORMATION 

15 cours GAMBETTA 

34000 MONTPELLIER 

(67) 92.58.83 



VISMO 

Ventc informatique service micro ordinateurs 

ORIC, SINCLAIR, AMSTRAD 

Moniteurs couleur et N/B. 

Tous peripheriques 

ASSEMBLEUR MONAMS 
Recommande par Hebdogiciel 

84, bd Beaumarchais 75011 PARIS 

12, bd de Reuilly 75012 PARIS 

338.60.00 



ABONNES, 

si vous avez un problems avec une de 

ces boutiques, vous savez a qui vous 

adresser? Je ne vous fais pas de des- 

sin? 



ANNONCEURS, 

vous avez envie de vous lancer dans 
I'aventure? Vous etes prets a consentlr 
5 % de remise sur toute votre boutique 
pour la voir envahie de programmeurs 
fous? Ecrivez-nous, nous vous ferons 
payer tres cher le centimetre carre de 
publicite! 



BLANC BERNARD 

Informatique Bureautique Lyon 

AMSTRAD - SINCLAIR - ORIC 

- SHARP - THOMSON - SANYO 

- LEANORD - LOGYSTEM 

9, nje Salomon Remach 69007 LYON 
Tel. : (7) 872.25.46 (pres faaMs) 

Assistance technique. Logiciel. Formation 
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grand choix de logiciels 

libraine speciahsee ^ * "*.aj\ 

nos PRIX "SERVICE COMPRIS) X .{A A 

\9 



&& 



LES BOUTIQUES DES 
BRANCHES CABLES 



TOUS LES LOGICIELS FROM USA 
pour ATARI, CMB 64, APPLE, 
COLECO. 

117 avenue de Vllliers 75017 PARIS 

766.11.77 
163 avenue du Maine 75014 PARIS 

541.41.63 



la page pedagogique 



la page pedagoZZ 



Ce programme de resolution des systemes d'equations du premier degre a ete realise par les eleves de troisieme de 
RAMBERT, professeur de Mathematiques a ISSOIRE. Un exemple a suivre ! -=<.(JJU 



Gisele 



Adaptation 

SCREEN: Definition des couleurs de la fenetre de travail. 

LOCATE: Localisation du premier caractere d'une chaine. 

ATTRB: Definition de la taille des caracteres. 

LINE (X1.Y1) - (X2, Y2): Trace d'un segment de droite entre 

les points de coordonnees (X1.Y1) et (X2.Y2). 

PRINT USING "# # # ": Permet I'editlon formate de valeurs 

numeriques. 
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SYSTEMES SUR THOMSON 



.:■ 'v::;;::^:--^!^;^; TEMES ■Resclijtiari 

ii-i :j;t4rai=s $' eciyota o^'? >:)'-< premier .^jr-., 
5 2 ou 3 lr>c.3.vi..ies-' ** + *******H:^ivv* 

: •****.;!**«;:(* i-:t,, 4 Rambert 

4 ■** College Les Pres ** ISSOIRE ***** 

5 '+*#*****************************#*** 
18 CLS 

S@ SCREEN 4. 1.9:L0C'aTE19.4:ATTPB1. liCOLQ 
RE.0:PRINT"RE?OliJ'" v ::!'!-ii.;:0-i!; ; 8. 8: PRINT" 
:E":LOChTE0. i^^ffii'i" 1 -:: VSTEMES [•■ EQUATION 



ATTPB0,9!COLOR4. l: LOCATES,. 



■ftiNT- 



5a? ' 

:OLOR0,3:PRINT"1" 

■-■ :.C t *K:4,i:L0CATE£,19:PRINT" Systems d 
- " iflusnoni :i.. »"Bf(,iet- deoire a 3 

:n,:c,nn ue = " ! : C0L0R9. 3J 

P:RIHT"2" 

50 PRINT : COLONS. 1 : lOCATE 10. £4 : iMPUT " vOTP 
E CHOIK ? ".N 

.;:■: IF N- >1 ANC' N ■ > £ THEM "11509 
90 IF N-l THEN GOTO 1900 
95 IF N*£ THEN GOTO 18008 
1O00 GOSUB £0000 

1010 CLi-LOCATE £. 1 : INPUT "A=", A: LOCATE I 
-. l: INPUT "B=".B! LOCATE £6. 1: INPUT"C=".C 
10£0 LOCATE £,i:lr..|PijT"t^",['!LGCfiTE 14,3: 
I NPUT"E=".E: LOCATE £6. 3:INPUT"F=",F 
lO".^ LOCATE lO.^iF E'=0 THEN PRINT A; ".- 
+ ";B)"S ="!C ELSE PRINT A;"x -"; ACS - & .■; 



1050 LINE <7£.36'-<.72.66>,l:LINE<72.36:< 

?b,36J.i:LINE'.7£.66J-<:76,66J,l 
1055 [>F=«*E-B*D:&X = C»E-B*F!I>'i'=H*F-C*D 
I069 PPINTiPRINT" De term l riant principal 

";dp 

1079 PRINT:PRINT" Determinant associe a 
X J "SDX 

: -:-&£■ FPINTiPRINT" De term cant associe a 
a : ";DY 

10=J0 IF [)P=9 AMD D;- = @ HMO C'Y = ti THEM !:0L'J 
"LOilOChTE t, iisPr-IMT-CE SYSTEME EST IN 
0ETEPMIME":Q0TO £5000 iq „ c „.,.,„. ,„,.„, ,. 
:i0':' if L'^ = 'J ANL- U';:'..'y 'JK Lniiy. intra l 
MOPI.OjLOCHTE c-,16!PRIMT"i:e -.VSTEHE EST 

IMPOSSIBLE" :A0T0 £5990 
; i is >:. = d;-, DPl\=[>V-DP 

1140 IF X=INT>:X> AND Y=INT(Y) THEM lOChT 
E 10.16:PRJUT", = ";vjlOChTE £6 . 16: PRINT "y 

="! v else 2000 

: 160 L0CATE12. 19: ATTRB0. 1 s COLORS . 0: PR INT 

■■■= = '■ +C HR3 ■:. 1 2 j>*" •";:■'; ".; ".; vj <■ :■ "rCHR.s- l£5 ■ 

:-TT[.p.0,S:C0L0R4,6iG0TC £5000 

£000 fil=ABS'[>X>:Bl = r5BS<DP) 

£010 IF AKB1 THEN T1 = A1 : A1=B1 : B1=T1 

£0£0 ■i! = INTCftl/Bl>sRl=Al-Bl*Sl 

£030 IF R1=0 THEN P1=B1!G0T0 4000 

£040 Ai=BliBl=RliG0TO £0£0 

4000 DXi. =Hf:^'. r-ri.' 'PI i&F^frF.Si.PF:'.- r- ! 

4819 >!l = SGN(X'*(D)!l.'DPli 

4020 IF .:i = INTOil:'THEN LOCATE 19,16:PPIN 

T"x=";>;i 

4030 IF Xl-:.:.TWTi\i.:i AND Xl> = 9 THEM LOCAT 
E i»3,lc.!PriWT"^ = "!L0i:.(>TE 1£,15:PRINTUSIN 

■: ■ ^-r.: " : D>: I : lOChTE i 3 . 1 7: PfiMiuil mg ■■ ;;;;;j " : 

DPI: LINE t9S,13S;-(l££, 132) 

4f"V0 IF :..K.'INT.K1 . riilD 1!1<8 THEN LOCATE 

=M i.: PRINT ":( = -■' :l : ^ :':i'- ; I -^; I 

"-:;''!!'■: t'^ 1! LOCATE 1£, 17:PRIMTUSIMG"#*#"iD 
PI : LIMEC9S, 13£!'-' 122, 13S) 



5900 A£ = ABS<:C'V>:BS=hBS<:DP> 

5010 IF A£<B£ THEN TE=B£: A£=B2: BE=T£ 

■v0£? ;£=!t..!T(:ft£--B£''tR£=ft£-BS#S2 

5039 IF P£=0 THEN P£=B£:GOTO 7000 

^04O fi£ = B£:B£=R£:GOTCi 5020 

70B0 PY£=ABS<DY><-P2:DP£=ABSfDP.'- P£ 

7010 V£=SGMCY :*i:DY£/-DP£> 

70£9 IF Y£=INTCY£>THEN LOCATE £6.16:PRI 

T"a="!Y£ 

707.fi IF Y£OINT.;v£. hND y£>=9 THEN LOCAT 

E 26, 16:PRINT ,, a = ,, :L0CATE £S, 15: FRINTOSIN 

.-, i%;!-:;-'':rvi:LC>CMTE £3, 17: PPINTUS ING"#«#"J 

DP£:LINEC£26, 13S>-(£50,13£3 

7J---40 IF T£OIMT:Y£. AND Y2<S THEN LOCATE 

-5. 16:PRINT"a = -":L0CATE £8. 15: PRI NTU3IM 
"■ .i^rsr.'Y^LOCuTF. 2-1, 17TPRIWTUSING"(Ht(t"; 
[.■P£:lIME'.££i5. !3£--' £5^. !!?.: 
7160 IF Nl--JlNTi.il. AND YE-: ■ INT ( V £ ■ THEM 

,_r;-HTE7. 1'?:hTTRE0. 1 : COLORE. : PRI NT "3- " * 

l.hpj. i £;■ + ■■< »:SGN'.>i .:?d;;i:" ■-■'■; DPI;' 1 ! ■ f ?GM 

■ ..*t>Y£; ' ":DP£: " < " -CHP:J.. 1 £5 :■ : ATTRB0, 0: C 
0LOR4,6:G0T0 £5000 

7170 IF Xl = INTi.;-:l :- HND Y£< ■ I NT >: Y£ ' THEN 
Li". CHTE7. 19:ATTRE0. 1 : COLORE . 0: PRI NT ";:= ■ -■. 

hfj.- i£3 ■ + "■■ ";>;i! "i ";5GiJ. v <«dy£! " ■ ,, ;i:-p£.: " 

. '■+f.HRJ' i£5:-:hTTPB9,0:COLOR4.6":GOTO E500 


'SO IF ;-:■!■■: INTvHl) fiND i'2»I«T<Y2) THEN 
.fiCftTET, i9iHTTi.?BCt,i:C0L.0R£,3!PRIMT"S = "*C 
,\r--' i£7'-". "fSGH' :■■ ^D;Uf"-";DPl.:".: '■:;£.:" 
:. "+CHP*a£5»:flTTRE0,0:COLOR4,e.:G0T: £;0O 


10908 GOSUB £0880 

iy£UC= r:LS:LOCATE £. 1 : INPUT "H= " , A! LOC HTE 
10. I : I NPUT"B=".E: LOCATE 1 8, 1 : I NPUT"C=", C 
1LOCATE26, l: II4PUT"D=",D 

10029 LOCATF £,.•;; rWPVT"E = ",E : LOCATE 10,3 
: INPUT"F=",F: LOCATE [ft,;: IwPuT"G= " , G: LOC 
ATEE6.3:INPUT"H=".H 

100-0 LOCfiTE £.5:lNFLiT"M=".M:L0CATE 10,5 
:INPUT' , N=",N: LOCATE 1 8, 5: I NFUT"P = ", P: LOC 
ATE26.5: INPUT"R=",P 
19935 LOCATE 10,7 
[0040 I! r fB>=0 Al'iD C---0' THEN PRINT H;"K 

+";B;" S +";c;"2 » U JD 

10050 IF tB>=0 AND C<0> THEM PRINT H! "X 
4...-S; " a -"JABS<C); "; ="J 

fiSSfil .IF. J,Bv0 |i hND.i: ; ; ' i| THEN i PRINT A!"x - 
O-C-T-iJi ir'fB-.O ftWD'c:* = 0-- THEN PRINT A; "X 

-";abs(B>; "a +"iC; "z =".:D 

10075 UOCATE 10,9 

10030 I-" *F!-=9 HND G> = 0> THEN PPIf . Ef "x 

* u jF;"a +";G;"z = !, ;H 

.0090 IF !.F-.=0 h«D G-03-. THEN PRINT E.S "X 

10199 IF CF<8 ANd'g40> THEN PRINT E; ''x - 

" !HB3. F :■; " s ■ ° f AE3 ',G.- j "z =";H 

10110 IF (F<9 AND G.-^0> THEN PRINT E; "x 

-",-ABSfF>i u s +";G;"z =";h 
19115 LOCATE 10,11 

10120 IF i:N> = AND F> = 8J THEW PRIM' 
+ ";N; "s +";p; »z =";R 

19130 IF .:NJ=0 AMD F-f0.:i THEN PRINT 

+";n;"3 -">abscp>;"e =";R 

10140 if i.m;:s and p<.%-> then print n; "x - 

";A6SCN);"a -"fiiSi' -:'S"~ = ' ; r- 

18150 IF CNO AND P>=8> THEN PRINT Ni "x 

-";ABSvM>;"s +";P;"z =";R 

1'Iiit-y LIME C72.5£'-. 7£, ISO... i:LIf.lE'"£-?£ 
}-i76,52). liLINE':7E, 190J-^76, 109), 1 
10170 Dl^r.;P-GvN:D£ = E:;iP-C^M:D3 = EflG-C^F:D 
4=H*P-G*P: D5 = D*P-C*R: D6=D*G-C*H: D? = rsP-ii 

18189 DP=A*Dl-E#D£-r-N*D3 



101^0 [-.;;=D*D1-H*D£+P*D3 

1OE00 DY=A*D4-E'*D5+H^O(j 

10E10 DZ=A*D7-E*D8*t1*D9 

1 9230 ■ PR I NT : PR I NT "De tern, i nan t principal 

:"JDP 

18235 IF DP=0 THEN C0L0R1- 0: PRINT ' CE Svs 

TENE EST INOETERNINE OU IMPOSSIBLE" : COLO 

R4.6:G0T0 15800 

10£40 PRINT"Determinatit associe a :■■■. '■ }0 

10258 PRINT"Determinant associe a a f"jB 

19269 PRINT"Determiriant associe a z ! ";8 

Z:PRINT:PRINT 

19S90 !<=DX/DPiY=DY.DP:I = DZ.DP 

1930S IF X=IWTt;0 HMD Y-INT,v;. AND l = INT 

<Z> THEN COLOR2,0!LOCATE4,19:PRINT'' .,- = ■■) 

>i:L0CATE 17, 19:PRINT" s = ".! Y = LOCATE 33.19 

:PRINT" z=";Z:C0L0R4,6:G0T0 30000 

■:v:f;, f:0*r <■<}<;. !40 ■- ■ £5S, i?£ ■■ . O^CC'LOPE. 

19400 Al=ABStDS!j:Bl=ABSCDP'' 

10419 IF AKB1 THEN T1=A1 : A1=B1 : SI =T 1 

10429 S1=INT<A1-B1)!R1=A1-B1*S1 

19430 IF Rl=9 THEN Pl=Bl:G0T0 10450 

10440 A1=B1=B1=R1!G0T0 10420 

1O450 DX!=ABS<:D/;J.'P1:C'P1 = ABS<0P"P1 

10460 j;i-SGN.:;-r,.i>tC' , :!| -DPI ' 

iO-'.-O IF :-:l=INT(Kl>THEN LOCATE 6,19!PRlN 

19480'lF XI«IHT<X1> AND Xl>-B THEM LOCA 

TF 6.19'.PRINTV=":lOCATE 8. 18: PRI N . ..; 
! ■;?;;■;■; "irxiiLOfCiTi; ;? . £9: PPINTUMi^' i.'.:"l ' ! DP 
1-LlMF. ■:-,-!, 15£.'-'88,'15S> 

19490 IF K1'->IMT ;:T; AMD ^ 1 r THEN LOCAT 
E 5, IMPRINT"!-— ^LOCATE 8, 18: PRINTUSING 
";;*■;■■" SDMI: LOCATE 8. £0:PRIN T OSING"###"; DP 
l:LINE'!64,156>-(88,156) 

19599 H£ = AB3':DY):ES=ABS^DP> 

19519 IF A2<B£ THEN T2=A£: m£=E£ : B£= r ; 

10520 S2=INT<A2^B£^:R2=AE-B£*S2 

1O530 IF P2=0 THEN P2=B£:C0T0 19550 

13348 : -i£=B£:B2=P£'G0T0 10529 

10550 DY2=HBSCDY>,P£:C'P£=ABS(DP>/P£ 

19560 Y£ = i.GN.Y>^.L..-.-£--L.r£ ■ . 

16570 IF Y£=INT.i£iTHEN LOCATE lb,19:PRI 

NT"a=";Y£ 

in^>-0 IF Y£;.>INTiV£. kND Y£ ■ =0 THEM LuCh 

"E >£. J-^: pr.rr-,T'-- = -' : LOCfiTi: 1 

*,-;i;;\;'-:i'il-i lulhte ls, £d p-S:>ntusii«IG"###" 

;:-PS:l I Mt'. I"-;, IZi ■■-( 168. 156^ 

lrt=,.--Pi If ■,£■■■■ JNT ■-.£■• HMD V£- THEM LOCAT 

E l^.l=>:PPINT":i = -":L0CATE 13 , 1 ft: PP I M~'.i i 

NG";if;::F";[i-.-£: LOCATE ),■ . £'j: PR I MTUt.I MG ' !^=:" 

;DP£!LINE(144. 156'.' -'.168, 156> 

19600 A3 = ABS(DZ:-:B3 = ABS<DF' 

19610 IF A3<B3 THEN T3=A3: A3=B3= E3=T3 
106E0 S3=INTih7 F," ■ : P3 = i-i3-E3*S3 
10630 IF R3=0 THEN P3.-B3: GOTO I 65 
11':;:.;!.-. ;,|-i--:7;i:3^P3:GOT0 10629 

10659 DZ3=AE3'.:DZ':'.'P3:DP3 = ABStDPJ/P3 

10660 Z7 = ;i,|.KZ' l :;vDZ3---DP3> 
" IF Z3=INT'Z3 -THEN LOCATE 26, 19: PRI 



15910 IF D3O0 6R Dl<>8 OR D2O0 THEN PR 
lNT"Deterrninant carac teristmue J"jD^tGO 

Ilell^lF A*G-C*E<>3 OR E*P-G*tK>9 OR A*P 
--^M-9 THEN PRINT"Detcrminant carat ten 
stique : ";DY:GOTO 16BS0 

16809 IF DZ=0 THEN PRINT:C0LOR 1,0:PRIN1 
CE SYSTEME EST I WETERfl I NE 
PAR RAPPORT A 2 
":COLOP 4,6:G0T0 3<b$20 
16019 IF DX=6 THEN FRINTiCOLOR 1,0:PRINT 
CE SYSTEME EST INDETERPIINE 
PAR RAPPORT A X 
"SCOLOR 4,6!G0TO 30000 
16820 IF DY=0 THEN PRINTiCOLDR 1,0:PRINT 
CE SYSTEME EST INDETEPMINE 
PAP RAPPORT A Y 
1 :C0LOR 4,6!G0T0 30009 
16930 PRINTSCOLOR 1,0:PRINT" CE SY 

STEHE EST IMPOSSIBLE " : 60LG-ii4, 6: G 

OTO 30900 
19000 -GOTO 30900 

£0000 CLS: SCREEN4, 6, 0: LOCATES, 2: PRINT" 
Dar.s ce programHe . la resolution des 
systemes s'effectue par la methode 



la forme:":PPINT 

£OS£fi ' ; r;INT" A»i*Bs=C 

Zz=Z> D:H-Em=F 

Gz=H 



:.N S -i 



NT"i 



tZ2 



IF Z30INT..Z3' AMD Z3; =0 THEN LCCA 
TE £6, 19:PRINT"z = ":L0CATE , ; P- 1 3: PP S '.i 7 ■■.'. i 
!.iC ,, ;;&;; ,, :C't3:i.0L.ATE £3.£0:pr;mt:jsimc -t'l!: 
:DP3:LINEC£24,156)-(E4e,156> 
i.-..-«.-. il -7-- :.INT:'Z7: AND Z3-. O THEN LOChT 
I ;s, i--.;r-iJir.iT"- = -":LOC«TE £8. 1?: PF I ".mu :■ i 
i..r. ".■;.;.;■":[-•- J :li"'C,.,''F £3. £0 : pp I MTi.rj ; KO":ii!i! ■ 
ibi'ii LINE '224, 156 "' - ' £45, 156> 
13700 GOTO 39S00 

15000 IF A*F-B*E->0 OR E*N-F*M. :-e OP «*M 
-P.-'iir- .:ij THEM P['iMT"r^rermmant :5fa.:<-eri 
stionje :";DZ:GOTO 16000 



E0030 LINE (50. 80.'- (. 59, 96», 1 : LINEv 50. £0 ' - 

°:£.ZQ', l!LlNE'59,96;'-(56..96>. 1 
£0940 LINE<170,89>-' 170, 104), 1 : LINE'I 70, 
ssi-i l76,S<j:'.l:LINE'.170.104:'-''176.104>,l 
£0050 PRINT:PPINT 

£Oi;-G0 PRINT" A,B.C,D,E,F,G,H,I'I.H,^ ,-:■: 

R -t„= nl ,i e s ":PRINT:LOCATE 1£.17:COLOR 1 
,0:PPINT" ENTIERS RELATIFS " : C0LOP4, 6 
;.fhi7* P;;- liiiM'R INT: COLORS, O : L0CATE3, 20: PR 
INT"AVANT DE COMMENCER, ":LOCATE 3,2 

.:-■::■■!.;■■!," -!v,m:-;.;-. :,■?-;■!=:: -:■■ ?-.■-■■= t:^;:^ ■ 

20080 LOCATE 32, 23: C0LOR9, 3: PRINT "ENTREE 

aS5»lul*£lNKEY*iIF Xf-CHR*<13> THEN RETU 

250la 3 COLOP4. 6! LOCATES, 31: INPUT "VOiJLOV 

..'■:..: FT-Lvli[.PE UN iiUTRr SYSTEME DUMEME TYP 

E >S> , REVOIR LE MENU ill; 'OU AVEZ-VBU 

S TERMINE CF1 7",R* 

£5010 IF RJ="3" THEN 1910 

£5020 IF R*="fT THEN CLSiGOTO 60 

£5630 IF R*="F" THEN CLS:SCREEN 1,0.0:;-.T 

TRBl.l:LOCATE 10. 12: PRINT" AU REVOIR"! ATT 

RB0.9:END 

C.';L 0R4. 6= L0CATE9.E1: INPUT "VOULEZ-V 
:■:.'■.'■■ :-.:.T-s-:.UDPE UN AUTRE SYSTEME DUMEME TYP 
E iS> , REVOIR LE MENU (M). OU AVEZ-VOU 
■■ TFRMINE CF> ? h ,R« 
39010 IF R*="S" THEN 10010 
^8920 IF R*«"W" THEN CLS:G0TO 60 
■::.'. ■ |F R1="F" THEN CLS:SCREEN 1,0,0:AT 
TP.rj! , I (LOCATE !0.I£-:PRINT"AU REVGIR":ATT 
RB9.0:END 

71000 CLS:SCREEN1 ,0.0:ATTRB1, 1 : LOCATE 0, 
10:PRINT" VOULEZ-VOUS FAIRE ATTENTION A 

U TESiTE! I":PRINT!PPINT" RECOMMENCE! 

IATTRB0, 

019 LOCATE 30,£3.9iCOLOR9.3:PRINT"ENTR 



EE" 



: = CHR*a3; THEN CLS: 



la page pedagogique: 



la page pedago^ 



LA MITE ET LA PUCE 



La tele devient de plus en 
plus gag. II y a quelques se- 
maines je me suis prls un 
fou-rire inextingulble en sui- 




vant les peripeties de Geor- 
ges Ffllioud dans une usine 
de fabrication de satellites. 



Notre cher mlnistre deambu- 
lait dans les locaux affuble 
d'une combinaison Irop large 
et d'un bonnet de douche 
trop etrolt qui le laisalt res- 
sembler a Grand'Mere Tar- 
tine. Succes assure. 
Commentaire ironique de Mi- 
chel Chevale! toujours parfait 
dans ce genre de situation. 
Cette semaine, la serie conti- 
nue: apres Tintin chez les 
Soviets et Fillioud chez les 
Satellites, on nous a propose 
Ton ton Mltterand chez les 
Puces. Par ml ceux d'entre 
vous qui ont vu la tete de 
noire cher President en cos- 
tume sterilise, nombreux sont 
ceux qui ne s'en sont pas 
remis. J'en suls. Enfonce le 
Bebete Show, aux chiottes 
Colaro, a bas Bouvard, rlen 
ne m'a fait plus hurler de rire 

Sue la degaine du President. 
in aurait dlt un oeuf de 
Paques en robe de commu- 
niant, et peuchere ca n'est 
pas laire du mauvais esprit 
que de dire a quel point ce 
spectacle m'a amuse. 



DU BRICOLO AU PRO 



Que vous cherchiez un utili- 
taire ou un jeu, Micro Lab I'a 
en catalogue. De Tax Mana- 

?er a Invoice Factory , de 
ayroll Manager a Multi- 
graph , vous pouvez tou! 
trouver dans une optique pro- 
fessionnelle pour voire Apple 
(II, III ou Mac), Commodore 
64 ou IBM (PC. XT, Jr). Seul 
utilitaire vraiment impression- 
nant. Life Saver permet de 




"reconstruire" les donnees 
sur une disquette partielle- 
ment effacee. II tourne sur 
Apple II. Dans le genre plus 
delirant, Assistant Coach 
vous permet de progresser 
dans votre sport favori, sans 
entrafneur. II gere les perfor- 
mances Individuelles et de 
I equips pour fa saison et les 
suivantes. C.A.S. ne plaira 
pas aux lyceens: il est des- 
tine a I'enseignant pour sui- 
vre (grace aux statistiques, 
histogrammes et autres bla- 
gues) chacun de ses eleves 
dans chacune de ses clas- 
ses Pour vous dlstralre 
apres tous ces efforts, vous 
pourrez partir a I'aventure 
dans les Caraibes avec Car- 
ribean Quest et Death In 
The Carribean (Apple et 
C64). Si vous avez un pen- 
chant pour I'arcade, vous 
aurez le choix entre trois pro- 
duits excellents. Miner 2049 
, The Heist et Boulder Dash 
(ce dernier est une des meil- 
leures ventes de Cannes aux 
USA). 



LORD SINCLMR CONTRE 
JACK TRCMIEL 

(Acte II, scene 1) 



La scene se passe quelque 
part a Birmingham. Lord 
Clive est dans son bureau, 
une bouteille de champagne 
a la main. II trinque avec son 
comptable: "Jeu leive ceu 
verre de Dchampeine a no- 
treu 5 millionieme maillecro 
ordinatchure vendiou in the 
monde entier I My god- 
ness...Nous avons faye un 
tabac avec nos matchines I" 
...Le comptable avale une 
gorgee de champagne et re- 
pond: 

Oh yes, my lord I But that 
damned Jack Tramlel is en 
train de briser le market avec 
des prix corpp'etement crazy. 
II est, n'est-ll pas ?" 
Lord Sinclair manque de 
s'etoUffer... 

"By jove I That foutu Yankee 
me flanque les boutons sur le 
figure. Poulsque II est ainsi, 
i'm going to contrattaquer 



pas plus tard qu'immediate- 
ment tout de suite. Winnifred, 
mon bon, donnez immediate- 
ment I'ordre de baisser le 
prix du Spectrum + de 50 




llvres. Desormals, II sera 
vendu 1500 frs au lieu de 
2100. Let the Force be with 
us, God save the Queen and 
shave Jack Tramlel." 



',la page pedagogique 



la page pedago— 



a I'assembleur 



COURS D'ASSEMBLEUR 



Depots plusieurs semaines, 
vous profitez d'un cours d'as- 
sembleur decompose en deux 
parties principals (I'une theo- 
rique, Tautre pratique). 

Cette semaine, le cours prati- 
que conceme une nouvelle 
fois le 6809 du T07 et du T07 
70. Le prochain numero 
consacrera une pleine atten- 
tion aux angoisses majeures 
du 6510 du Commodore 64 



N"55- 
N"56- 
N°57- 
N°58 - 
N°59- 
N°60- 
N°61 - 
N°62 - 
N°63- 
N°64- 
N°65- 
N°66- 
N°67- 
N°68- 



ZX81 

ZX81 

ORIC 1, ATMOS 

APPLE 

T07, TO 7 70 

COMMODORE 64 

ZX81 

ORIC 1, ATMOS 

APPLE 

TO 7. T07 70 

COMMODORE 64 

ZXS1 

ORIC 1, ATMOS 

APPLE 




Voici I'exemple dun addition- 
neur destine a travailler sur 
des nombres a quatre chiftres 
(ou quartets). Nous utilisons a 
nouveau la representation par 
briques. maintenant que nous 
savons ce qu'elle contient. 
ADDITIONNEUR 4 CHIFFRES 



▼ TABLE OCTAL- BifJ AIRE 
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Encore une fois. maintenant que 
nous conn a is sons le contenu 
d'un addition neur, nous a lions 
utiliser une representation gene- 
rique pour remplacer ce schema 
par trap complexe Je precise- 
rais que par convention le 
schema suivant indique qu'll 
passe N fils (done N informa- 
tions ou N valeurs) a cet en- 
droit-la. 
▼ Schema tie convention 



-J— 



ADDITIONNEUR N CHIFFRES 




L'additionneur est run des 
exemples les plus parlant de bri- 
que informatique basee sur la 
logique combinatoire. Nous 
aliens maintenant en voir d'au- 
tres qui sont I'encodeur et le de- 
cod eur. 

L encodeur est un circuit destine 
a transformer par logique combi- 
natoire un code decimal, octal 
ou hexadecimal en code bin aire 
comprehensible par Tordmateur 
Nous altons. pour etudier Telec- 
tronique de ce circuit, nous 
baser sur un encodeur huit en- 
trees-trois sorties. Nous pou- 
vons calculer simplement le rap- 
port nombre d'entrees, nombre 
de sorties. Ainsi si nous travail- 
Ions en octal nous aurons en 
entree de notre circuit huit 
codes possibles. Regardez brie- 
ve merit la table ci-dessous qui 
nous servira de justificalif du 
nombre de sorties a posseder 
pour encoder des codes oclaux. 
Pour memoire, je vous dirais 
que pour un encodeur a N sor- 
ties, nous pouvons admettre jus- 
qu'a 2 f N entrees. 





Octal 


Blnaire 




A a A i o 




2 
3 


o o 

O 1 
O 1 o 

! O 





Remplacons chaque code octal 
par un interrupteur repere par le 
code correspond ant Lorsque 
nous fermons linterrupteur n° 6, 
nous d^sirons obtenir comme 
reponse de notre encodeur: 110. 
II va done falloir realiser un ca- 
blage capable de determiner si 
un interrupteur est ferme et 
dans ce cas quel est cet inter- 
rupteur. En pratique, notre cir- 
cuit disposera non pas de trois 
sorties mais de quatre, la qua- 
Irieme servant a determiner si 
une touche (ou un interrupteur, 
une touche n'etant pas autre 
chose qu'un interrupteur) a ete 
enfoncee ou pas. Regardez 
maintenant le circuit complet 
d'un decodeur connecte avec un 
clavier a huit touches. 
T ENCODEUR 



Dorenavant. nous utiliserons 
la brique informatique prece- 
dente lorsque nous desirerons 
representer un encodeur. 
Comme loupurs en informati- 
que, une information que Ton 
sait coder doit pouvoir etre de- 
codee. C est dans ce but que le 
circuit du decodeur a ete concu 
Le decodeur sert a decrypter un 
code binaire de maniere a ren- 
dre actif une sortie et une seule. 
Inversement a I'encodeur, le de- 
codeur possede N entrees et 2 F 
n sorties Nous allons voir dans 
la table ci-dessous quel les sor- 
ties nous pouvons esperer obte- 
nir a partir de trois entrees plus 
une Car tout comme I'encodeur, 
le decodeur possede une entree 
destinee a indiquer si le circuil 
est dans un etat actif ou non 



S 100000000 

A2 >; 1 1 1 1 

Ai x o o i i o o i i 

A0 x 1 1 i i 

50 1 i i i i 1 1 1 

51 I i i 1 1 1 i 1 

52 1 i I 1 i 1 1 i 

53 i I i i 1 i 1 i 

54 1 i i i i 1 i i 

55 i i 1 i i i i i 

So i i i i i i i o i 

£7 1 1 ! 1 1 i 1 i 




Comme vous pouvez le remar- 
quer sur le schema de I'enco- 
deur, les quatre sorties (les trois 
de codages et celle de test "tou- 
che enfoncee") sonl surmontees 
d'une barre. Ce symbole indique 
pour quelle valeur te circuit est 
actif ou inactif. Ainsi si la sortie 
etait notee S, cela signifierait 
que le circuit est actif lorsque S 
= 1. Dans notre cas, nous 
avons comme notation s ce qui 
indique done que le circuit est a 
I'etat actif lorsque s = (autre- 
ment exprime, si s = 0, e'est 
qu'une touche a ete enfoncee). 
Dans le cas ou s = 0. les sor- 
ties A0, A1 et A2 donne le code 
de la touche enfoncee (ou de 
I'interrupteur ferme). 
T BRIQUE ENCODEUR 
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Solution des exercices 

EX 18 construire un circuit base 
sur des NANDs et equivalent a 
un circuit AND. 

It suffit, pour simuler un AND 
avec des circuits NANDs, de 
suivre la logique suivante: la 
fonction NAND a pour table de 
verite la table inverse de la fonc- 
tion AND Or nous savons simu- 
ler un inverseur avec un circuit 
NAND. II faudra done inverser le 
resultat de la fonction NAND 
pour retrouver la fonction AND. 
En pratique on cablera un 
deuxieme NAND avec en entree 
la sortie dedoublee du premier 
NANO. En voici le schema: 



AND SIMULE PAR NANDs 



L'ASSEMBLEUR PRATIQUE 

Langage machine... sur T07 




Bon. le registre A e'est vu. 
passons au registre B (et 
toe !). Pas de mystere, il est 
analogue au registre A (8 bits), 
toutefois il possede une parti- 
cularite. particuliere. 

- Ah I... 

- Oui. grace a lui nous pour- 
rons acceder a quelques routi- 
nes (ou petits programmes) 
propres au systeme. 

- Comment $a propres au sys- 
teme ? 

- Oui, le moniteur systeme 
(59392 a 65535) regroupe dif- 
ferentes routines utilisees d'or- 
dinaire par le Basic Elles per- 
mettent, entre autres, la 
generation de la musique, I'af- 
fichage des caracteres, la ges- 
tion de I'ecran, du clavier etc 
Vous voulez un exemple 7 

- Avec plaisir ! 

La routine NOTES en 59422 (& 
HE81E), permet Interpreta- 
tion des notes de musique 
lorsqu'elle est en possession 
des parametres adequats (in- 
diques plus loin) De meme, la 
routine PUTCS en 59395 (8, 
HE803). en possession des 
codes ASCII, permettra I'affi- 
chage des caracteres Le mne- 
monique JSR (jump to subrou- 
tine), est Instruction qui nous 
permettra d'acceder a ces 
sous-programmes. Chargeons 
le registre B avec le parametre 
de la note LA, soil 58 (& H3A) 
et faisons un JSR au sous-pro- 
gramme NOTES ■ 



19 

Chargeons le registre B aves 
le code ASCII du caractere X, 
soit 88 (& H58) et faisons un 
JSR au sous-programme 
PUTC$ . 
?seei lcb ties cs ss 

?:Ci.J7 JS(: > 59395 BE> E8 93 
3S906 RTS 39 

Soil le programme d'impianta- 
tion: 

19 CLEftP,32Oe0 

29 FOR I=3£0G1 ro 3£09t 

30 REAP fit 

48 POKE I,VftL("CH" + wf..iW£::>:T 
=,i? C.ftiw i:i,3«,En.E8,lE,39 



Inutile de vous rappeler la pro- 
cedure: RUN puis EXEC 
32001 vous sont maintenant 
tamiliers. Nous allons nous en- 
hardir quelque peu et essayer 
d'agrementer les exemples ci- 
dessus pour tenter d'obtenir la 
gamme chromatique de DO 
{demi-ton en demi-ton), et les 
caracteres du code ASCII 33 a 
127. Cela nous oblige a de- 
couvrir de nouveaux mnemoni- 
ques: CMP (compare memory 
from register) nous permettra 
d'effectuer des comparaisons 
entre le contenu d'un registre 
et une valeur donnee, BEO 
(branch if equal) operera un 
branchement si deux valeurs 
sont rjgales (branchement 
conditionnel analogue au 
IF. . = ..THEN Basic) et JMP 
(jump) est I'equivalent du 
GOTO Basic En sachant que 
les parametres musicaux de la 
gamme sont les suivants (en 
decimal) 

P DO DO# RE RE* mi re, 



SS S3 Sd 



- chargeons le registre B avec 
la valeur 48 

- incrementons cette valeur 

- et effectuons une compari- 
son avec 62 

Si la condition nest pas rem- 
plie, faisons un JSR au sous- 
programme systeme NOTE$ , 
puis un JMP a I'adresse ou 
s'effectue lincrementation de 
B, jusqu'a remplir la condition 
B = 62. Auquel cas, le BEQ 
nous branchera a I'adresse du 
RTS, 6 octets plus loin (on ne 
compte pas ('instruction sui- 
vante. nous verrons plus tard 
pourquoi) 

3£001 LDB #-)8 C6 30 

3EB83 IKCB 5C 

3£004 CI1P8 »6S CI 3E 

■ .f.jLH- DEO 06 E7 Bo 

32968 JSR >594£f BD E8 IE 

Saell JMP >3£903 7E 7D 03 

32014 RTS 39 

Nous emploierons la meme 
procedure pour I'affichage des 
caracteres. en chargeant B 
avec 32, incrementation de B, 
comparaison avec la valeur 
1 26 et JSR au sous-pro- 
gramme PUTC$ Soit le pro- 
gramme: 

IS CLEAR, 3E090 

2fl FOR 1=32001 TO 33014 

• S READ (** 

46 POKE I.vhL- '■W + HTiiNE;-;! 

50 f'rtrfi C6)38j5t,Cl,3E,E7, 

0e..EC'.E:3. 1E,~E,7[;-..B3,39 'Po 

ur 13 



- Tiens. e'est 
Hens quelques 
ne figurent pas sur mon Cla- 

- Eh bien ce programme vous 
aura permis de les decouvnr et 
vous pourrez eventuellemenl 
les utiliser par un ?CHfl$ (X) 
Passons maintenant au regis- 
tre D (16 bits): vous savez le 
resultat de la concatenation de 
AetdeB 

- Je me souviens.. 

Ce registre nous sera bien 
utile pour manipuler des va- 
leurs de 16 bits, amusons- 
nous a ses depends avec un 
petit exemple: chargeons-le 
avec une valeur 16 bits de 
32769 soit en binaire 
1000000000000001, les va- 
leurs respectives de A et B se- 
ront 10000000 et 00000001, 
e'est evident Pokons le 
contenu de A au milieu de 
I'ecran et mettons-le a zero 
grace a I'mstruction CLR 
(clear), puis faisons de meme 
avec le contenu de B place a 
sa suite, laisons .une boucle 
avec JMP. Vous avez compns. 
nous vouions faire clignoter 2 
points, mais un reset sera ne- 
cessaire pour stopper ce chef- 
d'oeuvre d'animation. 

32001 LDD #32769 CC 80 91 

3E004 STfi >£0802 B7 4E 22 

32997 CLRrt 4F 

3E008 STfl >2080£ B7 4E £2 

32611 STB >£0803 F7 4E 23 

32914 CLRB 5F 

32615 STB >29063 F7 4E S3 

3261S JMP >32BB1 7E 7D 61 

Bon. maintenant il n'est plus 
necessaire de vous indiquer le 
programme Basic, vous avez 
les codes machines, debrouil- 
lez-vous. Conttnuons si vous 
le voulez bien notre petit des- 
criptil, il est temps de parler 
maintenant des registres 
d'adresses X et Y de 16 Bits 
chacun, appeles egalement re- 
gistres d'index en raison du 
mode d'adressage qui leur est 
attache, Tadressage dit IN- 
DEXE. Considerons Tadres- 
sage indexe le plus simple a 
comprendre. Tadressage in- 
dexe a emplacement nul 
(Bof !) 
Exemple: LDA.X signifie que le 



regislre A sera charge par une 
valeur se trouvant a Tadresse 
placee dans le registre X. De 
meme STA.X signifie que le 
contenu de A sera place a 
Tadresse contenue dans le re- 
gistre X Encore un petit exem- 
ple amusant pour vous 
convaincre de la chose, nous 
allons detourner deux valeurs 
connues qui sont les codes 
ASCII de "$ " et "& " placees 
respectivement aux adresses 
66 et 46. II se trouve que ces 
valeurs sont aussi les parame- 
tres hexadecimaux des notes 
FA et SOL, parfait. Plagons 
notre premiere adresse dans 
le registre X la seconde dans 
le registre Y. grace a I'empfoi 
de Tadressage indexe, nous 
chargerons a tour de role le 
registre B par la valeur se 
trouvant a ces adresses et la 
nous effectuerons a chaque 
fois un JSR au sous-pro- 
gramme NOTES Un JMP re- 
lancera le programme a son 
debut, ce qui aura pour effet 
de generer a I'infini les notes 
FA et SOL Vous avez 
compris, nous ferons. . PIN- 
PON ! 

32601 LD>-: *66 SE 90 42 

"2S04 LDv »4£ 10 SE 00 2E 

-.'z'i'yi LtE- ..* F- 6 34 

-..=-r,!,-, :-R ^?4££ Et ES IE 

■i-ijJT .:•& -V E& fi4 

--■-,;-. c.f 5*42i St '-':■ !E 

3261S JMP 32093 7Z 71> 68 

Vous avez note au passage 
que nous avons code nos 
adresses sur 2 octets, ce pro- 
gramme un peu torture, nest 
qu'un exemple de manipula- 
tion. II est evident que Ton 
peut charger B plus tacilement 
en adressage etendu: LDB 
>66 ou LDB >46. chargera B 
de la valeur se trouvant k 
I'adresse 66 ou 46. 

- Et la fameuse rapidite du 
langage machine, jusqu'a pre- 
sent vos exemples ne sont pas 
tres concluants: PINPON, 
ouaf I ouaf I 

- On y arrive, vous vous rappe- 
lez notre programme Basic qui 
permettait a un bit de parcourir 
la memoire ecran ? Eh bien 
nous allons le traduire en as- 
sembleur Inutile de vous pre- 
Ciser qu'll sera necessaire d'y 
inclure une boucle d'attente, la 
Vitesse de deplacement etant 
carrement indiscernable. La 
procedure (ouais d'accord, 
1'algorithme) etait la suivante: 

- chargement du premier octet 
avec la valeur 128 

- division successive par 2 
jusqu'a 

- passage a I'octet suivant 
etc... 

Nous vous livrons I'exemple 
tel quel, les explications detail- 
lees suivrons dans notre pro- 
chain cours, mais d'ici IS, rien 
ne vous empeche de cogiter. 

32891 LOW *!2fl S6 86 

3EB83 lDX #16384 5E 48 09 

7:CCir. iT« .X h7 84 

32088 CMPfi #99 81 90 

32019 BED 14 £7 9E 

32012 LSRfl 44 

3£013 LDB #£55 C6 FF 

32015 DECB 5fl 

32914 ChPB #69 CI 90 

-■LOIS BIQ 63 27 83 

T£fiiM !'■!=■ 32515 "E 70 0F 

7.£?2? J rTF- :• 32906 7E ?D 86 

■HiiZi- lEh>: 1,X 30 8B Ql 

3202? Lf.M *12S S6 80 

3 £ P 3 1 CMP:-: tt243:-4 SC 5F 43 

:^C'3-: EEC 03 27 03 

-;:-76 JMP 32S96 ?E 7D 96 

32639 RTS 39 

II vous sera possible d'aug- 
menter la vitesse de deplace- 
ment en diminuant la valeur 
originale de B en 32013, soit 
par exemple C6 C8 ou C6 96... 
Aiors convaincu ?.. 
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OH BERT 



Ce titre ne vous rappeile rien ? Mais si, vous savez 
drrjle els bestiole qui saute de case en case sur la py- 
ramtde. Mais attention, vous n'etes pas seul alors 
soyez vigilant. 

Christiane MECARY 




Adaptation Atmos 

Modifier les instructions PLOT SCRN comme suit: 

ORIC 1 ATMOS 

PLOT X,Y,"A" PLOTX+ 1 ,Y,"A" 

SCRN{A,B) SCRN(A+ 1,B) 



Changer les adresses des Instructions CALL 
ORIC 1 ATMOS 

CALL # E6CA CALL # E76A 

CALL # E804 CALL # E93D 

CALL # E89B CALL # E8D0 

CALL # FAC6 CALL # FAE1 



REM .OH BERT. Par StffMWM ME 
CflRV 

1 CflLL#E6CR 

2 CLERP'CRLL#FS9B CII12X*<;18) 

3 CRLL#F89B RESTORE 

5 CLS PRPERO INK.t. pi:-|:.E4S036,3 P 
uKLif/V-fl, 19-NI=S 0=17 VIES=2 HH=^ 

3B0=6eee 

7 CD=? 
JO QjIO 15080 

39 REM .mfcEPEFIWniOH bi3 f.OPFi 
CTERES*** 

49 Pur,E*268,9'PRINT'PRINTCHS*;4 
.■■,OlR5';2S>;"J VEU1LLEZ P*TIt 
NTER"PRINTCHR*<4> 

50 CFiLLttESCR 

60 P!IiRH=d6!-?8C'---', 3V:f3 .TO46930+< 12 
6*3 J- J 

70 RERDZ POKER, ZNEXT 

86 FORR=4>:O30i':35!:3..~O4f.0:J0-;-' -0 
*3)-l 

39 RERDZ POKER, Z NEXT 

95 GOTO 20090 

190 IFTI=0THENPLOT2,4, "RMflTEOR" 

102 IFTI=lTHENPL0T2,4,"fiVERTl " 

104 IFTI=2THENPL0T2,4, "—PRO—" 

110 REM THBLEHU 

126 PLOTl?,0,"*b" PL0T15,9,6 

130 PL0T16,l,"anmb" 

140 PL0T16,2,"9<Trd" 

153 PL0T16.3,"h9.dc" 

169 PL0T15-4,"«fhcib" 

179 PL0TI4,5.."a fi b" 

180 PL0T14,6,"9 d9 d" 
190 PL0T14.7 , "hgdchScJc" 
200 PLOT 13.. 8 , "afhcifhcib" 
210 PLQT12..9 ,"« f| fi b" 
226 PL0T12,19,"9 d9 d9 d" 
230 PL0T12,ll,"h9dch9dch9dc" 
240 PLOTllf 12,"*fhcifhcifhcib" 
250 PLOT10,13,"a fl fi fi b 



d9 d9 d9 d 



260 PLOT10.14,' 

270 PLOT10.13.' 

280 PLOTS, 16, "afhcif'hcifhcifr.ci 
b" 
290 PLOTS, 17.. "a fi fi fi fi 

309 PLOTS, 18, "9 d9 d9 09 d3 

d" 

310 PLOTS, 19, "ii9dcK9dch3dch3dcl-, 
9dc" 

329 PLOT7,20, ,, afhcifhein-icifhE:i 
fhcib" 

330 PL0T6.21."* fi fi fi fi 
fi to" 

d9 d9 d9 09 



340 PL0T6.22. 
d9 d" 

350 PLQT6, 23, "hftfehSdchfletehBdCh 
9dch9dc" 

360 PLOTS, 24, "fhcifhcjfhcifhcif 
hclfhcl" 

370 PL0T7,25,"fi fi fi fi f 
i fi" 

380 PL0T1 ,0, "SCORE ' " PL0T25, 0, " 
HI" PLCT0,0.2 PLQT24,8,5 

3B2 PLOT 8,0,STR*(SC> PL0T2S,9, 
STRSCHI) 

385 PL0T25,2,"BONU3 " PL0T24,2, 

390 PLGT4.6, "ab" 
400 PL0Tl,7,"e a b J" 
410 PL0T3,9,"9 d" 
420 PLOTl, 9, "e h9dc J" 
43.0 PLOT3,10,"fhci" 
440 PL0T4,ll,"fi" 
445 PLQTIJM^W PL0T17,2,"4r" 
450 PL0T9, 6, 6 ' PLOTS, 7, 6 PLOT? , B 
, 6 -PLOTS , 9 , 6 ' PL0T9, 16, 6 PLOTS, 1 1 



,1 

465 IFVIES<iTHENPL0T35,23," " 
F'L0T35,24, " " 

466 1FVIES< 1 THEHG0T0505 
478 F0RR=1T0VIES 

475 PL0T35,HR-2," "PL0T35,HR- 

439 PL0T35.HR, "kl" PL0T35,HR+1, 
"oP" 
490 PL0T34,HR,6 PL0T-34 -Hfi-t-1 .6 
435 Hfl=Mfl-2 
509 NEXT 

503 PL0T34,25,"VIES" 
5'35 PL0T25, 11, "*••:" PUW2S.t2,"S 



^■■1'j.p'jy £■■•■■:■'}-■?■■ a f-rrcss^Sb. is p 

0:^.3325.0 P0KE48365,0 
546 UR1TS0 PLRYl/O.O.t) 111131013 

■10. 13 WRIT? P-LIH-.'t-. .0- Li IHIM5 
680 IFPEEK<4I208)=«96THEH1000 
610 IFPE!i!-.-.!.!;?0::. -h;;^ |>:LM1:00 
620 IFPeei:.'.;iJi. : r:.;: -:.i-:i--HEHi000 
630 IFPEEK 

640 F-F+l IFF>4THEM9599 
650 1=1+1 ■IFTI>9flHDI>i4TH£HS9ee 
<:.S9 l:>lvH ![•"! l.--:-.-ftt-iL:-K -24rHLN700Fi 

':■■"!- I!-:::'.: ] O^ ■'. < -,; : Hi: ■=■-:-: .i ■ 

639 PL0T3£.2,STR*(BQ> 

690 IFPEEK<R:>=1£3THEH39900 



700 GOTO609 

1000 IFPEEK'. ft-41 >=32THEM310ij£i 

1015 POKER+116 FOKEFK-41,16 POK 
ER.Q P0KER+49..Q 

1020 fl=R-162 

1830 POKER, 107 PGP.EfVH . iOS i^XE 
fl+40,111 POKER+41,112 

1040 CHLLSFRC6 

i050 '3.OTP640 

1500 IFh>4*h90THEM3I000 

1505 POKER+1,16 POKER+41,16 POK 
Efl,Q POKEfl+40.6 

1510 H=R+162 

1530 F-nt ; tTi,(0? POKER* i . i 1.0 POKE 
R+40,113 POKER+41,114 

1530 CRLL#FflC6 
1540 GOTO640 

2900 IFPEEK(R-38)=32THEH31009 
2010 IFPEEKXR-7S:>=36THEN6000 
2015 POKEfl-'l.lS POKER+41,16 P0>- 
ER,Q -POKER+40,0 
2020 R=R-158 

20:0 POKER, 109 POKER+1,110 f-Vi-.tl 
fl+40,113 POKER+41,114 
2040 CRLL*tFRC6 
2050 G0TQS49 
2500 IFfl>48300THEN31000 
2510 P0KER+l,16POKEfl+41,16 POK 
ER.Q POKEfl+40,G 
25J:0 >!=R+158 

2520 P0k:Eh,107 POKER+1 . !02 F-iji;t 
R+49,111 POKER-t-41,112 
2540 CRLL#FRC6 
2550 GOTO640 
6000 PLRY1, 0,0,0 
6918 FORO=1TO10 
-:.£i2r.i MUSIC1,4,O,10 
6030 URIT5 
6040 NEXT 

6042 POKER+1,16 POKER+41,16 
6044 POKER, Q POKER+40.G 
6050 PLRY0, 0,0,0 
606O F0R0=25T036 
6070 PLOTO.ll," w« "PL0TO,12," 

6089 URIT10KEXT 

6090 IFSCRH'.17,1)=32THEMS600 
6190 IFSCRH':. 1";. 5 :■ = i;:-THEMV = 15 X = 

5.GOTO6600 

6110 IFSr;PHa9,5>32THENV--l3 X= 
5 GOTO660B 

:--:-v-;-i : 
9:GOTO6600 

6130 IFSCRN-r 17,S>=32:THENY=17 X= 
9 GOTO6600 

6140 IFSCRN(21,9>=32THENY=£I Y= 
9 GOTO6600 

6150 IFSCRWU,13i=32THENY=n X 
=13 NEXT WITHOUT F0RT06600 

6160 IF3CRN<15,13J=3£THENV=15-:-! 
= 13 r,oTO6600 

6170 IFSCRNC19,13>=32THENY3:i9'X 



6520 IFTI=2rHEHPLOT2,4,"~PR0~ 

6530 G0T095 

6600 FORZ=900TO2SOOSTEP5O 

6610 PLRYl..g,@,R SO'JWt'1,2.10 

6620 IJRIT20 

6630 NEXT 

6640 PLRY8.8,0.0 WRIT 150 

6650 F0R2=1T01S 

6660 PLOTY,X,"cc" PLOTY.X+1, "cc 

6670 PLRY1, 0,0,9 MUSIC1,3,6,18 
HRIT4 PLRY0,0,0,0 
66S0 PLOTY,X," " PL0TY,X+1." 

6685 URIT18 
6690 NEXT 
6-00 |.!RIT180 

6719 PL0I37,11," " FL0T37,12," 

6720 R=48098B=4809S 0=43998 ['= 
48093 

6730 E=0 F=<? G=0 H=9 1=0 J=9 

6735 IF^.'IE6'1THEN35000 

6740 80=6000 CD=C[^2 v)fl=J'3 VIES 

■yiES-i 

6750 GOTO I 00 

7000 SwItmRNWIMSHI 

7010 IPS!*lTHEN0K«I5e 

^■020 !P3--2THE'I0K=162 

7050 IF[)=48098THENKO=7313 

7060 P0K£C-',!23 POKED* 1 , 124 PrjkE 

T: 40:25 POKEP+41,35 

7070 H=t-'*1 IFir LDTHeti'O-PO 

"02:0 G0TG678 

v 020 G03UBKO 

7160 IFO43800THEH7170 

7110 D=D+0K 

7120 IFPEEKai''=0THENK0=,'210 

7125 IFPEEK(P'>=123THEHD=P-0K 

7138 IFPEEK(0)=32THEHK0=7190 

7140 POKEP 123 FOKEC+l, 124 POKE 

D+40,lg5 P9KE.P+4I,35 

715.0 M=e 60T0S7B 

71 70 G03IJ8K0 

7130 0=420^3 >: = N=y GOTIJSSO 

!'130 P0KEC32 POKED • 1.32 POKEt>+ 

40,32 POKED+41, 32 

7280 RETURH 

7218 POKED+1,16 POKED+11,16 Pr J( .' 
EX', D P0t-Er,+46,D 

7220 RETURN 



= 13 
6189 IFSCRN(i33,13>=3£THENY=a3 = X 8100 



= 13 

6190 IFSr.-PH'?.i;-;=3.-;THEMY=? X=l 
7 ' GOTO6600 

6200 IFSCRW13,17?=32THENY = 13 X 
=17 GOTO6590 

6210 IFSE-PH. I 7 . l 7 .:-3;thEMY= 1 7 x 
=17 GOTO6690 

6220 IF5CF:!-f21.17>=73THEMY=£l S. 



S=IHT(RNDa>*2?+l 
IFS=1THENRE;=158 

IF'::=i'TKENftB=162 
I^C=-43023THEIi0L=3599 
POKEC 123 POKEC+1, 124 POKE 

125 POKEC+41,35 
H=H+1 IFH>CI»THEH3P90 
GOTO660 
GOSUeOL 

I Fi: •<!3300TML'I3200 
C=C+RB 

IFPEEKXC^=OTHENOL=3500 
IFPEEKt C )=123THENC=r:-RB 
IFPEEK', '=32THfl(OL=S4O0 
P0KEEM23 C '0I'EC + 1, 124 POKE 

125 POKEC+41,35 
H=0 GOTO660 



6230 lFSr;r:(K25,17.-2;;;--fl-IEMY = 25 .:■ 
=17 GOTO6600 

6240 IFS0RM.-7. vj :■=■;: vfHEMY= 7 X=3 
1 i GOTO6600 

62511 irSCRM-. 11,21 ::^32rHEMY=ll X 
=21 GOTO660B 

6260 IFSCRH' 15,21 >=32THEUY-15 X 
=21 COTO6609 

6270 IFSCRH'. 1.?, 21 >=37 THEIIY^ 19 X 
=21 GOTO6600 

63>.0 ]FSCRH'.23,21 -.=3JTHEMY=2 3 '■: 
=21 GOT06600 

63?Ki 1FS0RM' 27,21 -'=J3THEHY=27 X 
'=21 GOTO6600 

6330 PLRY1. 0,0,0 

6 51.0 l-HJSH:i,:3,l,!2 URIT20 

6320 MUSIC 1 .3.3-13 1JRIT20 

6340 MLiSICl.3,5-12 KIRK.iO 

t-'SO MU3IC1-3-6.12 HRU20 

6360 MUSKl,3.3.12 IIRIT20 

6370 MUSICl,3,ia, 12 URIT20 

6330 l-;03H.i -3 !3. 1.2 HRII20 

ii-^-0 URIT20 PL RY0. 0,0,0 

,,400 3C=SC+B0 

6410 PLOT 9/e,STIWCSC) 

6420 F=0'I=0 K=0 HR=23 

6430 60=6900 

■3-135 cr>=cu-i 

,--.4411 FriPT-^lTi36 PLOT ":5, 1 1 , T PLOT 
-35, 12, T 

6450 NRIT20 NEXT 

6452 WWr3B9 PL01 ?•■■, ! ! " 
L0T35,12," 

5454 "fi=430^3 &„4302'>- r =4;;:0?3 2- 
48098 

6455 IFQ=23THENi;.Oi"6'..'0 

6466 B=Q+1 G0T095 

K470 TI=TI+1 

6480 IFTI=3THENTI=2 

64y0 0=17 Ct>=7 

6,500 IFTI=0THENPLOT2,4 "RlKriF'IK' 



8110 
8120 

81 25 
BI39 

8149 
0-40, 
3150 



:J205 G03UB0L 

3210 C=4309S H=0 1=0 GOTO6O0 

8400 ^OKEC.3,' Pi:il;b'l*l-3.? Pni-Fr + 

40,32 POKEC+41, 32 

3410 RETURN 

ssrifl POKEC + 1,16 POhEi +41.16 POK 
ECO POKEC+40,Q 

3510 RETURN 

9500 S=INKRNrXl>*2>+l 

9519 IF^=1THEHRN=153 

■fJ520 IF3=2THEMRN=162 

9550 IFB=43093TNENRL=12500 

10000 P0CFR.133 PmkFS?+1.124 Pi]k 
EBMO. 125 F-nkEP+41,35 

10010 E=E+l IFE>CPTHEM1OO30 

iijO.L-0 GOTO550 

lt't':.'-'.i ijOSUHHt. 

10025 I-E: 4-:800THENUQOO 

!i:,i:j40 E:=B+RN 

10042 IFPEEKi.B>=C'THENRL = i:- i 500 

10043 IFPEEK<B>=123THEHB=e-RH 
10844 IFPEE^B>=32THENRL=120O0 
10050 P0IEP.12-: f'0!-rEi+l,124 POX 

!L:*4012T. P''KEB+41,3S 
1O060 E=9 GOT0659 



11010 8=43998 f=fi E=0 G0TQ608 

12000 POKES. 32 POCEB+1,32 POKEB 

+40-32 POKEB+41,32 

13020 RETL1RN 

12500 P0^EE:-!.16. POKEB+41 . 16 ■ PO 
KEB,Q POKEB+40,Q 

12?20 RETURN 

15000 as porcr.;-'-:. 10 

15010 FriRR=460:?0-' 9 7* ft ■1046060-'- 
( 105*3'-! 

15020 RERPZ POKER, Z NEXT 

15049 FORR=1TO10 

15050 PFR!vS :y.S<ft>=Z* NEXT 
15951 plot i, 2 -z::?. 5.' pluti,?..Zx 

S(6) 

158S2 PLOTl , 4,ZX*( 7 V PLOT) , 5j ZK 



L'autre jour, nous stions tran- 
quillement en train de bon- 
der le journal, comme tous 
les mardls a trols heures du 
matin, lorsque nous vimes 
debarquer Monsieur Tran, le 
createur des lecteurs de dis- 
quetles Jasmin. II titubait, vi- 
siblement beurre, et parve- 
nait avec peine a articuler. 
Nous comprfmes Dependant 
qu'il venait de feler le pre- 
mier anniversaire de sa so- 
ciete, qu'il avait decide de 
baisser ses prix et qu'il sou- 
haitait en faire profiler les 
lecteurs de I'HHHHebdo. II 
nous tendit un papier cons- 



Lecteur simple tete avec 

contrflleur: 2990 

Lecteur double tete avec 

contrSleur: 3950 

Deuxieme lecteur simple 

tete: 1790 

Deuxieme lecteur double 

tete: 2990 

Contr&leur (compatible avec 

lecteur Oric): 1690 

Promo anniversaire, lecteur 
simple tete + traitement de 
texte Easyiext + gestion de 
fichiers Repertory Fich + 
livre TDOS et ses fichiers + 
TDOS + jeu Terrified Terres- 

tors Invaders: 3490 

Imprimante Jasmin, matri- 
cielle qualite courrler, 50 cps, 
j ambages descendants, tous 
accents, graphique, bi-direc- 
tionelle, 132 caracteres par 
ligne. caracteres elargis, 
condenses, gras, graphiques, 
grecs, inclines, mathemati- 

ques: 2690 

Amplibus (cordon): 390 

Assembleur trois passes:.490 



telle de laches de vin et de 
graisse, sur lequel etaient 
portes des prix etonnants. 
Nous les avons reproduits c 
dessous (pas les laches, les 
prix) pour que vous puissiez 
juger par vous-meme. Proti- 
tant de son ethylisme tempo- 
raire, nous I'avons conduit a 
nous promettre que tous les 
lecteurs qui joindraient cet 
article a leur commande se- 
raient servis en priorite. En- 
voyez done 1'article, voire 
commande et le cheque i" 
I'adresse suivante: TRAN 
sari, 53 impasse bleriot, 
83130 LA GARDE. 



Easytext: 590 

Logograph: 490 

Multifich: 690 

Commerce 1: f 

Astro calcul: 490 

En route vers la galaxie CE2: " 

390 

Origraph: 350 

TDOS:..,. 150 

Disquettes d'accompagne- 

mentTDOS:. 130 

Disquettes vierges: 65 

Ajoutez 40f de port pour les 
logicieis et les livres, ou 80f 
pour le materiel. Livraison 
une semaine apres reception 
du cheque. Le materiel est 
garanti 6 mois. Amen. 
(NDLR: This article ci-dessus 
is not un veritable article, it is 
a pubticite mal deguis6e. Si 
Monsieur TRAN vous livre 
pas dans les delais prGvus, 
vous nous e~crivez pour qu'on 
lui remonte les bretelles. 
Comme ca, apres son anni- 
versaire, ce sera sa fe~te I) 



K-.?O0 PLOT?- 13, "■ 



lZO^h PLOT5, 5-1 PLOTS, 6,1 PLOT0 crccccc" 



6519 



1THENPL0T2,4."FIVERTI 15054 PU3T1 ,/$., 7X«< 9'- PLOTl, 7, 2X L C 



. ',1 
15060 PL0T6,12,"V0US DEVE2 TRHN 

■j?- fiflMER T0U3- PLOTS, 12.4 
15070 PL0T4 ,13, "LES OUEiES D'UflE 
PYRRF1IDE5 EH Lfl" PL0T3, 13,4 
15080 PL0T6,14, "COULEUR CONNER 

..." : PLOTS, 14,4 
1503-3 PL0T4,15,"LORSrjUE LE TRE-L 

ERU EST TERM1NE" PL0T3.15,4 
150-35 PL0T6,16,"FRE!IE" LP PPS.3E 

F:ELLE..." PLOTS. 16,4 
15090 PL0T3,19, "VCiICI LES COMMR 

MCE6 DE OH BERT" 
15095 PLOTS, 15,3 POKE43S03, 17 P 

0KE43798.1S 

15190 PL0T4,21, , 'G=POLIP r-iriNTEP V 
ERS LR GflUCHE" PL0T3,21,2 

15110 PL0T4,22"B=PiiL!P PFSCFI'DR 
E 7FP3 lm OPOITE" PL0T3,22-2 

15120 PL0T4,23, ,, J'P0L'R l-TOMTPP V 
ERS LR C'ROITE" PL0T3,23,2 

15130 PL0T4,24,"M^P.:'..'R V ■<= ». C F NC' P 

£ "EF-s Lfi ::::■;! ;r:!E'- ■lot;,m i 

15140 PLOTS, 26, "'ESC- POUf? FONT 
JNFJEP-- PL0T7.2fi.13 PLOT6,2S,l 

15142 CRLL#EO04 

15145 G03U025000 

15147 POKE*260, 0- PRINT PPIHTCHR 
*<m.CHR*<m 

!515Fi PEPERT 

15169 FORR=10TO1STEP-1 

15170 PLOT 1,0, ?;!*■: R> PL0T9,0,IN 
TvPHF" 1>*6)+1 

15139 PRIHTCHR*(in,CHR*Cll > 
15199 NEXT 

15290 UNTIL PEEW.#208-)=#R9 
15210 POKE623..27CLS INK4 
15220 FLRV1 0,0,0 HUSIC1,4,12,1 

NRIT10 PLR'i'0, 0,0,0 \ 
15230 PL0T3,4,-FBITE3 VOTPE F.PO 

I.X ..."iPLDT2,4-,6 
15335 PLCTI,2<?, "S.EP:V£i V0H3 CE3 
OOPSEUR ET CE LR " PLOT0,22,3 
15237 PLOTl, 24, "BRRRE O'ES^lTCM 

EHT..." PLOT0,24,3 
1S?3S PLOT If.. 26, "PflF STEPHRHE H 

ECRPV..." 
15240 PLOTS, 7, "ccccccccccccccc: 

cccccc" 
15250 | PLOT8..8,"c 

15260 PLOTS, 9, "C BUBTSUR 

15262 PLOTS, 10. "c 

15264 PLOTS, 1 1 , "ccrccccecccccce 

15266*PLOTe.l2,"r 
C c" 
15270 PLOTS, 13. "c RVERTI 

15272 _ PLOTS,14,"c 
C c" 
1S274 PLOT^.l^^'CCcccrcTCficcccc 

15276 PLOTS, 16,"c 

15?7r"F'L0T8,17,"c PROFESSIONNE 



15310 PLOT?, 9,1 PLOT?. 13,1 PLOT 
9,17.1 

13320 PLOT24,9,4:PLOT24, 13,4^PL 
0T24,17,4 

15330 V=9 I 

15340 IFPEEK< #20? >=#E4FlNr'V< S 
HE«>.'=V»4 

15350 IFPF.FF' ':.30:3 ^f-r^iir.^:' : 9TH 

rjt[u=v-4 

1S360 PL0T27.V, "*" URIT1B PLOT2 
7,V, " " 

15370 IFPFr- ' **20k i=«:34THENG0T01 
5399 

I53SR G0TO1534P 

15390 PL0T27,V."9" 

15395 IFV=9THEHTI=0 

15409 IFV=13THEHTI=1 

15410 IFV=17THEHTI=2 

15429 PL0T4, 26. "BONNE CHANCE.. 
" PLOT.3,26,3 IJRIT100 

15-1.^.0 CL3 INi'6 OOTO30 

.-0003 CL3 PRPERO INKP-lt- 

20010 P1.0T18,4,"-?b" 

29020 PLOT17,5,"^.Kinb" 

20930 PL0T17,6,"^4rd" 

30040 PL0T17.7,"h9dc" 

30050 PL0T16,8."=fhcifc." 

20069 PL0T15.9,"?. Fi b" 

29070 P(.OT15,10,"9 d9 d" 

30030 PLOT 15, l! . '■hgdciv^jc: ■■ 

20990 PL0TlS,12,"fhclfhci" 

20100 PL0T16,13."fi fl" 

20119 PL0T17.14."9 d" 

20130 Pl.0T17.15,"h9dC" 

30130 PL0T17.16,"fhci" 

30'40 FL0T18.17,"r±" 

20159 P0KE*26B,19 PRINT NI=NI+1 

2.3160 PPIi!TCHR~"'4 > CHP*: 26 ? j " , " 
NIVERU ";N1 PRINTCHR*C4 

20165 CRLLttE804 

20167 PLOT0-20,5^PLOT0,19,5 

20170 COSUB25099 

33130 IIRIT50 PLOT 13 . 5, "cc" PLOT 
IS, 6, "cc" ' PLOT20, 9, "urn" PLOT20, 1 
0,"qr- 

20190 PLRY1,9,9,9 MUSICI.4,9,10 

HflIT10 PLflve, 9,9,0 URIT50 

20200 'n.i.iT20,9."cr" PLOT20, 19, " 
cc" PLOT 13, 13, "kl" PL0T18, 14, "oP 

20219 PLRY1,9,9,9'TOJSIC1.4,9,19 
WftIT19PLFIY0, 0,0,0 WHITS0 
i03:?0 PL0T1S. 13, "cc" ■■ PL0T18. 14. 
"cc" PL0T16.9, "kl" i PL0T16, 10, "oP 

29239 PLRYl,9,0,9nUSICl,4,9,19 
HRIT19 PLRY0,0,9,9 URIT50 

29249 PL0T16,9-"cc" PL0T16. 10," 
cc" PL0T18,5, "nifl" PL0TIS,6- "qc" 

29250 PLRY1. 0.0,0 MUSIC1 ,4, 9, 10 
■WR1T19 PLRY0. 0,0,0 WRIT150 

202.30 CL3 1HK6 GOTO100 
25000 REM MUSIC 

S50I0 rem 

25915 T=50 

25929 PLRV1, 9,0,0 



SATELLITE 



Faites comme les grandes puissances, payez-vous le 
lancement d'un satellite et simulez a votre guise la tra- 
jectoire de ce dernier dans un systeme de planete a 
votre choix. 

Patrick DELCOIGNE 

Mode d emptor , . 

Cb programme fonctionne sur TRS 80 Models 1. Ill, IV (avec DIS modala III) Les 

appateils Solvent disposer de 32Ko minimum Autre chose 4 laqLelle il laul egala- 

merit velllar; metlre les bonnes valeurs aim lignes 190 et 230 Une option specials 

est prevue pour les lecteurs qui disposent de la petite impnmante graphique de 

typeCGP 115. 

Apres avoir charge le programme tapez RUN. 

Suite S une breve presentation, le message suivant apparaitra Desirez-TOus tra- 

valller dans un systems a deux planetes 1 

Void le questionnaire qui vous sera propose- et les dtfterentes contraintas a res- 

Masse de la planete 

Etant gen6ralement Ires elevee. cette valeur convlent d'etre notee en notation 

sclenlifique Ainsi, la masse de la Terre qui est de 59B0000000OO0000000000000 

kg sera notee 598E24. notation bien plus avantageusa... 

Rayon da la planete 

II sera exprime en kilometres. 

CoordonneW de lancement du satellite. 

Cette coordonnee sera relavee dans un repere orthonorme comprenant un axe 

des abscisses perpendiculaires a un autre axe. lane des ordonnees Le centre de 

la planete 1 sera consldera comme etant I'origine des axes." < Cette question 

suppose des lors deux r^ponses: 

1| Absclsse de la coordonnee de lancement i 

2) Ordonnee de la coordonnee de lancement 

A litre d exempie, pour 



TRS 80 



2) La vitesse mlnlmale pour mettre le satellite ei 
lite trolera lastra) 

3) La vitesse pour mise en orbite circulate 

4) La vitesse d evasion aussi appelee vitesse 
laquelle la satellite se trouvera dans un etat non- 
Angle de lancement: 

Vous imaginerez la planete 1 en tant que cei 
lancement de 90 degres corresponds a un vec 
lecran; un angle de 135 degres enverra le satel 
neur gauche de fecran. etc 
Vitesse du satellite 

Vitesse lors du lancement II laut I'exprimer i 
teme international). 
Dimension de I'espace Observable: 




:rcle Ingonometrique Un angle de 
i I lite dans la direction du com supe- 

metres par seconde (unite du sys- 



A sulvre: 

En raison de la longueur in- 
habit 'uelle du listing nous 
passerons ce programme 
en deux fois. 



{6371,0) poui 
(0,8371) pour un 
(0.-6371) pour ur 
(4095,4880) pour 



lancement a I'equateur 
' u Pole nord 



, repondez: 



lancement a 50 degres I attitude nord 
at vous avez opie ae travaillar avec une planete, un tableau vous renseignera su 
des vitesses partial litres valables pour un lancement au point choisi ET pour ui 
vecteur vitesse tangent a la tagectoire. Vous seront foumis: 



grande exprimee en kilometres Si vous prei 

pace autour de la planete. mtroduisez par exempie la vaieur ou aiametre oe la 

planete (en kilometres) 

Intervalle do temps: 

Plus lintervalle de temps sera petit, meilleure sera la representation graphique, 

mais aux depens de votre patience. Vous pouvez lournir une reponse negative 

pour tafre "reculer" le temps (voir exempie) Intervalle a exprimer en Secondes. 

Pour travalller avec deux planetes. 

Le rayon et la masse de cette deuxieme planete seront demandes de la meme 

facon que pour la planete 1 De plus, pour situer les planetes run par rapport a 

lautre, on damandera d exprimer la distance qui separe leur centre an kilometres 

ainsi qu'un angle (pour repondre, agir de la meme facon que pour I'angle de lance- 

II se peut tres bien que cette deuxieme planete n'apparaisse pas sur la video, 
donnez alors une dimension de i'espace observable mieux adaptee. 
N.B.: Le satellite evolue en tenant compte de la presence de la seconde planete 
MEME SI ELLE WEST PAS REPRESENTEE SUR L ECRAN. 
Selection du centre de la planets: 

Cette selection se (ail par pression sur les 4 Heches, permettant ainsi de deplacer 
un point qui (era office de centre pour la planete 1 Lorsque vous serez satislalt de 
sa position, presaez < ENTER > 
Nous abordona alors la phase graphique: 
ana un premier temps, nous verrons se deaslner la (ou lee) planeta(s). En- 
suite le satellite commencera a decrlre sa trajectoire. L 'execution ne s'arre- 
tera qua lorque le satellite aura percute une planete OU LORSQUE L'UTILI- 
SATEUH PRESSEHA LA TOUCHE < CLEAR > 



Flche technique: 

Elle resume le lancement. 

Cholx otterts: 

1) Relancer un satellite dar 

2) Relancer un satellite dar 

3) Quitter le programme 



Henselgnements: 








LE SYSTEME SOLAIRE 






Rayon 


Masse 


Hayon moyen 




Metres 


kilogrammes 


de I'orblte 


Lune 




7.34E22 


3.8E8 






3.28E23 








4.83E24 








5.98E24 




Mara 




6.37E23 




Jupiter 


7.1 8E7 


1.9E2T 
















S.8E25 




Neptune 


2.48E7 


1 .03E2S 


5.SE12 










Solell 


6.95EB 


1.98E30 





RRESPOND Pi (Tern 



SATELLITE 
DELCOIGNE PATRICK 
RUE CHATEAU DES MuTTES 2 
B-7590 FRASNES-LEZ-BUISSENflL 
BELGIBUE 

TEL ! 069/BE. 52. 17 

ETUDIANT SCIENCES-MATH r.RhlNPtor i oue) CD 
eEN FRANCE 
AGE : 17 ANS 
MATERIEL : TRS ModSBRle III 32 Ko 

TRS ModSGRIe IV t+ DDS III 4B 



* Sous-programme de trace d'un sesmei- 


t Xa, Ya - Xb, Yb' 


" Seauenxe d'aPdel : X * USR 1VARPTR 


(USC0))) 


' avec uy.(0)=l pou 


tracer ' 


rB ' U%<0)=0 pou 


effacer 


' U*Cl>=Xa 




' U%t2)=Ya 


' 


' U*C3)=Xb 


' 


00 ' UKU)=Yb 








20 PRINTCHR*<31) 




30 * ii.ni» Memo i re I 1 




5B ' IE K 


32256 


£0 ' 32 K 


48E40 ' 


70 ' 4B K 


55024 


90 MS=65024 ' IMPORTANT 1 < (3225E, 4BE40 


ou E5024 seion c 



54B * 

550 CLS 

555 PRINT3400, "VEUILLEZ PATIENTER UNE 

5E0 GOSUB4110 

570 PRINT3130. "Trajecto. iS5 M ai34, "dar.' 



5S0 PPINT3497. "D*l ror 
590 FDR I = 1 TO 2000 
E00 PRINT3497. " 
610 PRINTrT7?3. "floouy.? 
S20 PflrNT51130. " 

";:PPINTa430. 



630 IF PEEKT 

535 CLS 

E40 PRINTCHH*(23 

670 PRINT"* Ou«l 



720 PRINTtPRINTTAB^S)" (ENTER) 
725 FOR I ■= 1 TO 1200INEXT 
730 IF PEEK<14400) <>1 THEN 730 
750 CLSSPRINT" Toutes 



200 Z1»INTCMS/25E) s Z2=MS- 
FZ2=-1TMENZ2=255: Zi=Zl-l 
210 POKE IB5G1. Z2:PDKE1E562, ZUCLEflR 2000 



SS-2 : I FZ2=-2THENZ2=254 : Z 1 > 
Definition 



220 CM=4S 'IMPORTANT :<<1E, 32 ou 4B se 1 on config memoireJ 

) '62 

230 IF CM=1 ETHENAD=32256ELSE I FCM=32THEM0D=- 1 6E96ELSE I FCM=4BTHENA 

D=-512ELSEPRINT"ERREUR CONFIG MEMOIRE" : STOP' SB 

240 ' 1ft 

250 FDR N = RD TO AD * 2S6 ' 38 

2E0 READ A : IF A i 255 THEN A = A/10i-4*€M-E4 ' DG 

270 POKE N . ft * BF 

2B0 NEXT ' EA 

290 " E7 

300 IF AD < THEN K = 65536 + AD ELBE K = AD ' 0A 

310 K2=INT(K/25G)iia=K-CK2t:25E) ' C2 

320 IF PEEKC16549) ) E7 THEN DEFUSR = AD ELSE POKE 1552E, KI : PO 

KE 16527, K2'E0 

330 DRTA205, 127, 10. 229, 253, 225, 253, 70. 2. 253- 7E, h, 253, BE, E! REMB5 

340 DRTA253. 94, S, 237, E7, 2E, 1270.205. 1.3, 1.270-221,33,24.1270, 120: R 

EMBC 

350 DflTft3B, 1.1EE, 5E, 2, 3S-255. 121. 1E7. 4£, 1, 5E. 2. 4E. 255, 34. 24: REM3 



i, 12E0, 237, EB, :■ 



, 147,242,63. 12E0i 



360 DATB1270, 120, 14E, 242.: 

REM7B 

370 DATA237.ES. 111.34, 2E, 1270, 124, IBS, 56, 52.203,47.50,30, 1270: RE 

MCfl 

3B0 DATft37,24E, 5B, 25. 1270.221, 134,5,50.23. 1270,58,30. 1270. 133: RE 

MC0 

390 DATA50.30. 1270,221. 190.3, 5E, 15,221, 150,3,50,30. 1270, SE, 2B: RE 

MD1 

400 DRTA1270, 221, 134, 0, 50, 2E, 1270. 237, 75, 2B, 1270. 205. 13. 1270, 24: 

REM58 

410 DQTA209, 125. 203. 47, 50. 30, 1270, 45, 24B, 5S, 24, 1270, 221 , 134: REft0 

B 

420 DATA4, 50, 2E, 1270, 5E, 30, 1270, 132,50, 30, 1270,221, 190, 2, 5£, 15: R 

EM7E 

430 DATA221, 150,2.50.30. 1.270, 5E, 29, 1270,221, 134, 1,50,29. 1270! REN 



l DPTA237, 75, 2Bt 1270, 205, 13, 1270, 24, 209. 62, 



1.2. E2, 2. ■:■:?■?,■■ PR; 



450 DATA213, 197,245, 137, 121, 1C3.31. 71, 120, 12S, 12S, 195,40, 5: REM0A 

460 DATft56,3, 5,24,245,30, 133, 120. 1S3, 31 . 95, 106, 3B, 0, 41 , 41 :REM41 

470 DftTft41,41,41.41, 121. 146, 14E, 14E, 135, 12B, 147, 147, 71 , 22: REM34 

4B0 DflTA0,25, 17,0,50,25. 1 2E, 133. 250. 241 , 1260, E2. 12S, 1 13, 175: REMC 

C 

490 DATfilB4,E2, 1, 40,4, 135, 5,32, 252. 71,241,254, 1, 32,4, 12E. 176 i REM 



PRESENTATION 






riant 


760 PRINT" 


oour^tT 


770 PRINT" (ENTER) " 

7B0 IF PEEKI 14400) 
790 PRINT 


S00 PRINT 




Gal i lee, a 








EI0 PRINT" 
en 15B7. d 


Solel 


on du mouv 




B20 PRINT" 


:onseaue 


le fondeme 


it de la 



S30 PRINT" (ENTER) " i :FORI=1TO500:NEXT 

840 IF PEEKC14400) <) 1 THEN 840 ELSE PRINTSTRING$(8, I 
B50 PRINT"Le premier edi-fice coherent de la scienci 
e de l 'etude 



EE0 PRINT 1 
870 PRINT' 



S80 PRINT" Les lo 

physique a condit 

des 

ES5 PRINT" (ENTER: 

BB7 IF PEEK' 

S90 PRINT" 



B91 FORI=1TO500!NEXT 

892 IF PEEK 

910 ' 

DEBUT DU PROGRAMME 

320 ' 

330 CLSiCLEAR:DIMAi:il) 

940 G = 0. 66732E 



127 :Xfi=480 
; YR=4S0 



9S0 RE*=LEFT*(RE*, 1) : IF 
990 POKE 16403, 3 
1000 IF PL=1 THEN PL*=" B ,i 
1010 PRINT"Masee de la "PI 



'O" OR RE*""*' 
'Enociise des 
' ELSE FLS="di 



THEN PL=2 ELSE PL=1 
NPUT AH) : 



A SUIVRE... 



CANON GRAFF 



Imprimante tr6s dOu6e recherche programme sympa Ce programme est en deux parties; la premiere concerns la creation 

pour Oration graphique Ecrire a Monsieur CANON <& graphiques a colonnes flusqu'a 18) et celle de graphiques do \ 

~7.\ i™™,^*« r- „„,,„,,. pourcentages (jusqua 10 valeurs) sur imprimante. La seconde \ 

qui transmettra. Franck DEVARGAS concerne J a creation de ces deux types de graphismes sur I'ecran 

de votre CANON. 

MnrtP ri'flmnlnl- Appuyez sur une louche pour changer de page ecran mais atten- 

Programme de creation de graphiques pour la version de base du Bon. Tappuie sur F permet de revenir au choix general et un nouvel 
CANON X07 et de son imprimante X710. 



appuie sur F arrets le programme. 








590 IF 


X < = 1O0ANDMX > 10THENECH* 


.25 


1140 LPRINT-PVALEURB :• 




ieoo 


RETURN 


33S0 


IFA»-'F-THEN160 


2 REM*DE VARGAS F.» 






X < - 1 000 ANDMX > 1 OOTHENE CH=2 . 


1150 LP.RINT"S0,C2,R4O,-110* 




ieio 


LPRINT-H.CO" 






3 REWHHHHHBHMHHHHHt 












1160 FORI'lTONC 




1820 


LPRINT-M190.0" 






4 REH**CANONGRAFF#* 






X<=1000OANDMX)lO00THENECH= 


1170 LPRINT-I.PCOLOMNE C + STR9 
















25 

620 LPR 














FORN=l TONC 
















1175 LPRINT-R0.20" 






H=H+4*CCIN> 


3430 




20 LINE<0,0)-(119,0) 




<-9THENL6<lELSELG 






1176 LPRINT"P-+STR*iVC(I> ) 






LPRINT'K0,-"+STR«(H-2*CC(NU 




PRINT-D-->-|VC(4l J 


30 LIN£U19,0>-<119,31) 
"40 LINeill9,31J- 10,311 




*"" LPR 


G-1THEN4.30EL5E750 


399 


0,0. 


1180 LPRINT-H.R20.O- 
1190 NEXT I 




1870 LPRINT'50,P'+MID*(NQ*IN1 ,1,LE 


3460 


LOCATE11,0:PRINT-E — >-iVC(5) 
L0CATEll,l:FRINT-F--)-;VC(6> 




















LPRINTP : "+STR«(VC(N11+- -- 




L0CATEll,2:PRINT-G--)-jVC(7) 


60 F0RN=0TD119 












1210 B0TO160 








34BO 


A*=IHKEY* 








NT"L3, 10,-286" 
















IFA«=-F'THEN160 


BO LINE(N,31I-(N,A> 




6B0 LPR 






1310 INPUT'NOMBRE DE VALEURS 


1Mb 


1900 


LPRINT"M250,-400" 


3500 


IFA»»"-THEN3480ELSE3095 








NT"J0,2B6- 






ndOl "INC 






LPRINT"S1,C3,B3" 




CLS 


loo forn=otosoo:next 




700 LPR 






1320 IFNC<20RNO10THEN1300 




1920 


LPRINT-P-+MII1«1NG*, 1,LENING»> 


4010 


INPUT'COMBIEN DE VALEURS <Nb 


110 LOCATES, 












1323 CLS 










0) -INC 


130 PRINT"*GRBPHI8U£*' 












1330 F0RI*1T0NC 




1930 


CLEAR 




I FNC < 20RNC > 1 OTHEN4000 


130 LOCATE10.3 












1340 PRINT-VALEUR MI 










FORM" I TONC 














1350 INPUTVC(I) 










CLS 


150 IFINKEYS="°THEN150 


















PRINT-#**» AVEC ECRAN ****■; 




PRINT-VALEUR No'lN 


160 CLS 












1370 PRINT-NOM VALEUR "II 










INPUTWCIN) 


165 CLEAR 












1360 INPUTNOHIl 






PRINT-2: GRAPH. POURCENTAGES- i 






170 LOCATES, 1 












1390 IFLEN(NO»(I) 1 >12THEN1360 












130 PRINT'VOULEZ-VOUS' 






NT"R100,0 U 






1100 CLS 










PRINT-NOM VALEUR No'iN 


170 PRINT-L- IMPRIMANTE (0 










1410 NEXTI 










INPUT- (N0M<-4Lettr*B)-(NC»(N> 


315 IFA»="0'THEN220 
217 IFA«="N"THEN2000 
219 IFA*="-THEN200 




BOO LPR 
BIO LPR 
S20 LPR 
B30 LPR 
840 LPR 


NT-R-300,-33- 
NT'LO" 

NT"I,S0,03* 






1420 INPUT-NOM DU GRAPHIQUE "1 
1430 IFLEN(N6BI>23TKEN14Z0 

1450 F0RI=1T0NC 




3015 


IFAS-"2"THEN4000ELSE2050 

INPUT-COMBIEN DE COLONNES (Nb 

"INC 
IFNC<20RNO7THEN3000 


4125 
4130 


IFLEN(NC»(N) 1J4THEN4100 
F0RN-1TONC 


230 PRINT-**** IMPRIMANTE 
240 PRINT- i: GRAPH. COLON. ( 
230 PRINT-2: GRAPH. POURCEN 


d*oT-i 


850 LPR 
860 LPR 


NT"H,R100,0* 

NT " P ■ + STRB 1 300*ECH > 




1470 NEXTI 

14B0 FORWTONC 

1490 CClI)°VC(I)*lO0/RE 

1500 NEXTI 

1510 LFKINTCHR»I1B> 

1520 LPRINT-J160, 0,0,-400,-155 




3030 


PRINT-VALEUR No'lN 


4160 
4170 
41B0 


F0RN=2TCNC 
IFP0(N)>MXTHENMX=P0IN1 






860 LPR 
BBS LPR 


E'^rr*" 






,0,0 


3070 


CLS 

PSINT-NOM COLONNE No'lN 


42M 




270 M-INffiY* 




GR=m"/22 


2S0 IFAS^-l-THENJlO 














INPUT-N0M<=41ettr«m-|N0*IN) 




LINEI0,0)-(0,22> 


250 IFAS--2-THEN1300 










1525 LPRINTCHRSiiSJ 






IFLEN(NO«(N> ) >4THEN3070 


4220 


LINEIO, 221-1119, 22) 


310 ^* <> " 1 " DBM<> " 2 ° THE 




9P5 LPR 


NT"P"+STRSI100*EC 


11 




1530 FORN^ITONC 




3050 


CLS : NEXTN 


4230 


FDR N-1T0NC 


















CLS 






315 DIMNC(LB) ,VC<1S) ,N0*( 


B),CC 


18 920 LPR 


NT " 1 ! FO " 






1550 LPRINT-J159.0, -159,0' 




3100 


PH-VCI1I 


4250 


IFN-1THENF-0 






930 LPR 












3110 


FORN=2T0NC 




LJNEI6+F,Z21-(6tF,-P0IN)/GR*2 


320 INPUT'NOMBRE DE COLONNES * 1 NC 940 Lpft 


NT"R0,42- 






1565 LPR INT -H- 






1FUC IN) >PHTHENPH"VC IN) 






330 IFNO180RNC<2THEN310 




950 FOR 








1570 FOHN'ITONC 




3130 


NEXT 


4270 


LINE I6*F, -PO(N) /GR+22I- (Il+F, 


340 CLS 












15B0 IFN=10RN-5QRN-9THENC=I 




3130 






Jl/GR+22) 


350 F0RI=1TQNC 






NT"I-"+STR»IVCU> 






1590 IFN-2QRN"60RN*10TKENC-'2 




3137 






LlNEfll+F,-P0tNI/GR*221-(ll+F 


360 PRINT-VALEUR COLONNE 
























3?6 IWPUTVEUt 

380 1FVC1I>>10000THEN170 
390 CLS 




965 LPR 


NT! JO, 20!' 
-1T03 


,c„, 


■.o- 


1610 IPHe4DBH=8THiN6=e 


3130 


fOBNsITBBE 


rr 


TL, B1 .„»„«r-, ... ,* 


BOSUB1650 




400 PRINT-COULEUR COLONNE 




975 LPR 








1630 I F N= ZORN ~ 4 0RN"6 DRN-8 OH N - 


OTHE 




FORI-1T03 




A»-INKEr« 


410 INPUTCC(I) 




980 LPR 




ECH 




NG0SUB1730 




3190 


LINE(19,N+AD-tIJ-(LGH9,tJ+AD+I 


4320 


IFA«""F"THEN160 














1640 NEXTN 










IFA»"--THEN4310 














1645 GOTO 1820 




3200 


NEXTI 


4340 


CLS 


440 PR1NT-NOM COLONNE "II 












1650 LPRlNT-R0,--lSTR«t4*CC(N 


> 


3210 


NEXTN 


4390 


F0RN-1TDNC 



5- F0RI-2TDNC 






,R0,30" 
30*NC+S0 



1720 RETURN 


3290 


CLS 






1730 LPRINT ,I R0,--*STR*(4*CC(N) ) 


3300 


PRI 




INOS! 


1740 LPRINT-C-+STR»(C» 


3310 






1N0H 


1750 F0RI=8T0152STEP8 


3320 






iN0«( 


1755 D-4#CC(NI 


3330 






IN0«1 




3340 








1770 LPRINT" J0,-"+STR*(4*CC!N) ) 


3330 


L0CATE11.1 




17B0 NEXTl 


3360 








1790 LPRINT"R--*STR*(I-8>*",0" 


3370 


AM- 




a 



4440 NEXTN 
4450 CLS 
4460 GOT04210 



a, THOMSON 

^r Suite de la page 3 

((<NB-i^l0:'*5^+5:J£=l 
:330 IF NB=71 THEN BB«=54: SC0=3S 

73?0 ■— -CEFIMITION CES VHISSEflUJt 

340B IF NB0 71THEM ftfl-lS-C < <«B-1 >' 101 *2 ) 

ELSE A£=B 
3405 FOR ft=ll TO NB STEP 10 
3413 Hl = <(ft-1>/'10) 
34E0 E*<aJ^GW<Ha*Hi*fti-2>+GR*<H2*Bl+ftl- 



3450 WEKT AA 
3460 «#{(&-] 



ESC* 



-'lfl): 



3470 NEXT A 

74-0 n.JTC 1000 

3490 ' PRESENTATION 

3506 SCREEN ". e, 9= Cl3: COW?OlE'3,£J. (!■ C' 

3510 Bfjr.F-S.l ■-.■4y.d>r.HRJ' i£7 ■,■:- 

~'.cvi BO-F'. ».•=, '-' 4'J.l -i.-HfiJ.. 1£7 j. 1 

7 = 30 E0XF(6.-.-'49.3CHRJ. IS? ■■£ 

37 4C E- ir- : =" F ■ i.i .■?=-■ 4 . ;. n ■fnPti 1£7j,j 

755f BCi-F'S, ]] -Aii.iE;,rws, i;t .- 

35rO E.iv...r.:;0.17'-' 3fC . 14 .. CHR*' 127--, 5 

■7.5 70 ECMFift, l5i-''3Ee. 1& 'CHR*v 1E7.-..6 

358B 80XFCe^I7>-f".£Ci. IS MlHP.-f :7' .- 

3590 B0XFC0, 19 <-';3£Ci. ,=":■. 'CHR*- ii" ." 

7600 H*="fieL£Ti: r;£[.: ::iF-SES[:i;it. 50 pp R Epsippn5T 

IFAFO5REA0T4O1SOLAFSDSI" 

j.ilij CONSOLE 3, £4, 1 1 BTTRE1 . 0: OLS 

36E0 PRINTTBE. ? ■; "LES ENVhh: S:.r.i.F ■; 

7630 IF SCOREl'SCOP *HEH SCOP^E.lCR-E: 

SCOPE=0 ELSE iCORE=0 

3640 ATTRBO.C: i'1-TWi : Pf IciTThBC 10 >; 

"ME1LLEUP -luPF.: ": SCOP: PRINT: PRINT 

3650 PRINT" 



6$6 PR 1 1 



;&R*':S ii 

. 1% F'lJtNT? :PR!W 
■:CR*'£ -;ORfi 3''f 
..-7. PCI''iT-:. ■-■PPJfiiT 
:CiRf ■ 4 .:GP*t5>f 



" £0 POINTS": PRI NT 

3sS0 PRINT" "JGR*<&)JGR5<7>; 

" 15 POINTS": PRINT 

3690 PRINT" ";GR*(8;'fGR*t9>; 

" 10 POINTS": PR I NT 

3706 PRINT" ";CR$U0>;GR$>.li:': 

" 5 POINTS": PRI NT 

3710 PRINT" " ', GR$ < 1 £ > ! GR# ( i 3 '• : 

" ,. INVINCIBLE" : PRINT: 

PRINT 
3 7£0 A7TRB0, l: PRINT" ";MISI; Ih^tR 

E 3,0: PR I NT" HVSTERV " PCiIWS" 

: PRINT:PRIWT 

7-30 i:iJNSCiLE£3.23 

3740 PRINT"NB DE COLONNE I 1 -9> " ! 

3745 H*»IMPUT*C1 -:NH=V«H«i> 

3-50 IF wa- 1 OR m * THEN PRINT: 

GOTO3740 
376B NA=NH-2>PRINT 
3^70 PRINT"NB DE LIGNEvl-?)".: 
3775 H*=IWPijT^. ! .:mD = '.^L<:AJ) 
3780 IF NB;l OR HB>7 THEN PRINT: 

GOTO 3770 
Z r W NB^NB*19+liPI?IHIT 
7i?0 PP1NT"»B DE TIP ENEtll i l-£> "! 
rst<5 H!T=iWF:jT3... : .:^i=^AL<At> 
3813 IF CK1 OP BI>2 THEN PRINT: 

GOTO 3300 
3320 D!=3-D1 

7*70 CaMiCiLEO.ZJIOL-r-iLOCATEO.O.O 
3 :i: 4 'Ji LINE' 40, 193 '-■ i'S0. 191 ) . 1 
7750 FpINTMiCNERE Tl POINT: 0" 
3S60 VT = £:GOi.j£.^i:.3.::ii7::. : .iii::£i:.50:GO^NE2650 
7070 SC = 499-a:-:.C! = i99:iOTO 3800 

3999 r MYSTERY 

4000 ATTRB 0,1 

4&10 FOR B3'l TO 30 STEP £ 

4029 LOCATE B3,£,0 

4030 PLAY"l;404-5hO; n-irtTTPBB, 1! PRINT 
" "+NIS* 

4040 hTTRB0.9:GOSUB £SOP 



4642 IF WS=1 THEN W2=0JRETURN 

4B45 IF LUX19 THEN GOSUB £900 

4050 LOCATE 133 + 1,2,0 

4060 PLAY"L£4O4T5A0DO":ATTPB0.l:PRINT " 

"+NIS* 

4u70 NEXT B3 

40B0 LDCATEB3,£:PRINT" " 

.050 L0CHTEB3. liPRIHT" ° 

4110 B3=0:ATTRBO,0:RETURN 

4120 ftTTRBO, l:PLAYMi:PLAYWf 

4130 R = B3 + l:p,A = l:GOSUB£400 

4]75 H = 50*a + lNT'RND*6)> 

4150 ATTRB0,0:L0CATER.£:PRINTA 

4160 W2=l! SCORE ^SC-J't+H: h = s: L.0SUE:£'51 ij 

417@ AHH = flAA*l:LOCtHTE P.£:PRINT" 

4175 LOCATE ft,l:PRI«T" - 

41S0 B3=0! RETURN 

4190 '—MESSAGE C"J COMMANDANT 

4200 IF SCORE<500 THEN A*="V0US ETES TEL 
lEIIENT NUL !JUE VOiri Fvr7SE7 EN (r>JPv fi H pr 
IALE! ":A=58:GOTO4300 
4210 IF SCORE-.1000 THEN H*= ' J' ESPE PE SUE 

VOUS ETES UN DE8i_.T.,'.iT FVPCE fUE J'AI L' 
H.;.r 1 ,!,E'.tP ;;E vOUi wf-iH-i-:. ■■!■: EP QuE V0U7 ETES « 
ULI ":A=96:GDTO4300 
4220 IF SCOPE12O110 "^E!i- k*="PhS Hn l FijijF 

'.T-! DEBUTANT' ":A==:;:GOTO43e0 
4230 IF SCOPE;.3000 THEN A*="PhS MAL ■ PA 
S NftL I ":A=20JGOTO4390 

4235 IF SCOftE^40yO ThEN Hi="OUS -'007 t,n 
E..IOREZ NhIS LE "IE'-- ES7 em CORE DE S'EPh 
1. :.FR 5003 V'OMS hURIE; EL :JW -AISSEri-' GRh 
TJIT! "iA=93:G0T0 4300 

4546 IF SCOPE 5O0O "HEN h= = :, VUUS WAVET 
PAS DE CHANCE. VOUS N'ETIE: PaS LCU'u ['h 
■■'OIP UN VnISSEAU GRATUITi "iftiriiGOTC 43 



ASSE ' ":A-2e:GOTO4300 

4300 ATTRB!,l:ol*=INKEVf:ftl*="* 

43B5 Mb" MESSAGE DU COMMANDANT 

4316 FOR 01-1 TO A+6 

4340 LOCATE0,14,0 

■'777 -'-UK 1 i-M[i;T' As,h1. ;1'0 ■ : 

4355 FOR A2=l TO 10 

4360 A1J=INKEY$ 

4376 IF A1IO"" THEN 3610 

4775 NEXT H2 

"700 NE:a Al 

47S1 GOTO4310 

4390 ' TIP AVEC MI5TERV 

44S0 A2=B3 

4405 FOR Al=20 TO 1 STEP -I 

4410 PSET(R,A1JGR*<:££: 

4420 FSET(R,A1 + 1 >" " 

4435 IF Ah=A(E£:' THEN PSET(R,ftfl>" ": 

AA=AA-£!E2=E2-l:GOTO4430 
4440 IF U3>1 THEN N3=N3-1 ! G0T04476 
4450 ATTRB0,l:LOCATEA2,£,0 
4460 IF A£<31 THEN PLAV ll L^404T5Ae^jO' , : 

PRINT " "+NIS*:ATTPB0.0:A£=A2*l: 

M3=3 
44-0 NEXT Al 
4480 IF A£=P OR A£+1=P THEN B3=A£-1 : 

GOTO 4120 
44B5 ATTRB0,0:PSET(R.1> B3=H2-1: 

RETURN t) 



4£50 IF SCORE'6000 THEN At^'VOUS «'■ 
■-N VAIS8EAU GRATij;- MkIS CELA NE '■ 
=«S POFTE CHANCE' " : A=6S= Gf T C4 700 

42&0 IF SCDRE^BBOS 'HEN A*='ijHhOU 



e: EU 




BUDGET FAMILIAL 



Vous avez des problemes pour gerer votre budget ? 
Ce logiciel utilitaire vous permet de les resoudre. II re- 
groupe un certain nombre d'operations indispensables 
pour ce faire et, de plus, il sauvegarde sur K7 les ope- 
rations realisees. 

Marie Claude ZAZZI 

SUITE DU N 68 



850 i-fR!20th(=npen3:f 



'SO gosubl770:i 




960 cur 



ii-25, ltOif 



*-*-*-*- I- *-*-*- *-*-*-*-*-*-*-", 20, 140, 
970 's/prq. rappel Bernier solde 
990 output"* RAPPEL *". 100, 120, 1 : plot c 

ut"> VOTRE DERNIER SDLDE EST DE [",30,E 

15,3:autput30(C> , 100. 60,0: output "Frs", : 
970 gosub2390:gosub480 
1000 screen 10, 70,220, 60: cl 57: output "* 

5,45,1: put put "====-== =====/ ",60, 35, list 










AL":pen2:prir> 


1640 wipe: tonelOO, 230 






1650 output"* RUBRIQUE 


",25, 190,3: 










1670 colorO, 1.2,3:plot7C 


25,140, 15,3 


,35, 205, 7: put 


■.E--NCQRE * ^OHQIX",aO 


20, l:f lashl 


,2:gosubia30 


1680 0$=instr*(l) :i-fO*;> 


'e"sndDtC"t 




1690 return 




C>:PUtpUt"-*- 


1700 's/prg. choi v. 
1710 -forA=lto6:ne«t 






1720 plotl20, 50, 110,15,3 


tonel50,255 



J ■&■ 










229C 




f R A 










20. 1 






r;T 


output' 

55,200, 


* tape 


- un 




if!. 1 . 1 ' 


output' 


'■ la p 


ace 


ie 


2320 










2330 


output' 








urspi-215,151 








234G 




1 ANCIENNE 




90,1 


output' 


Frs" ,2 


35,90 


£ 



i,230,3:outpi 



'5, 110.65,2.3:outp I 
0,2:piotT" "" 
70,60,2 



itput 2360 " 

23BO ! 

2^0 t 

2400 ( 

0,20,71 

: CHD 2410 ! 

2420 ' 



,20,3:autpi 
E=in5trE(i: 
;/prg. errs 



1010 i 

1020 ifM0*=' 



;ub4S0 



ipe:gosubl270:elseCM^val (MG$) 

1030 ifMD*=" "thenwipe:output "VOUS FAITES ERREUR" , 50, 1 1 
:>, 1; plot 45, 95, 125, 2, 2: pause 1 : goaub2520 

1040 CH=val <M0*) 

1050 wipe:pen6:C(R.MtC)>=C(R,M<C;n-HCM:return 

1060 wipe: restore: pi ot65, 210. 120,30,3 

1070 out put"**", 30. 200. 3: out putES 'F" .80.200. 1: output"** 
1 . 200 , 200 . 3 : gosub 1 130 

108O output"*; NONTfiNT de ->>",25,80,3:plptl30,B5,55,20 
,2:outputC<R.N(C> ) , 130, 80,0: putput "Frs «", 195, SO, 3: goto 
1140 

1090 wipe: rest ore: pi at 65, 210, 120,30,3 

1100 output"**", 30,200, 3: out putV*(R; ,80,200, 1: output"** 
' , 2O0, 200. 3: gosub 1 1 30: ant ol 080 

1110 wipe:restpre:plot65,210. 120, 70, Z 

1120 out put"**". 30, 200. 3: out put St iP> ,80.200,1: output"** 
' ,200 ,200.3 :QO=ub 1130: QotolOSO 

1130 output"* du M0IE".50,150,2:outputE*,105, 150,2:plot 
135, 140,85,2, 3!outputM*<M(C> > , 140,150,3:outputAN(CI , 190, 
150,3:return 

1140 gosub 1670: i -FO*="e" tbengoto 1260: el segoto4B0 



.if'ENTREZ LE r 
jr200, 140: mpi 



i2590:cur£ 
goto!7B0 

1790 ifM=4orM=8orM=l( 
1BO0 output "EIMTREZ L' 
chifTre5)",40,75.3:oi 
1810 gosub 2590: cursor 
1820 l-fAN;i9B4orAN>2( 

iut"DESOLE". 100, 115, 1: 
90, 0: pauseS: wipe: gotc 
1B30 return 
1B40 "totaua 



ANNEE",20,90,3:c 
200, 90: input AN <C 



2450 i-fB-lthf 

i=u 2460 T(LT)=v; 

pe 2470 TL=TL+T 

24B0 LT=LT+1: 

pe 2500 's/prg. 

2510 TorA=ltc 

2520 gasub25 c 

5 4 2530 "s/prg. 

2540 plot 120, 



2560 fa- 
V, 2: newt 

2570 ou1 



.120. 173. 105.2, 2:output"» R A P F 

■ = *=*=* = * = *=*=* = * = " B 65,220, 1 

; = 15ta230stepb:output"£",X,95,2:i 

'=100tol55step6:output"£",15,Y,2i 



■ TOTAL DEB 

■ TOTAL DEP. 

■ TOTAL DEP. 



■1,VS(19) ,SS!31> , 
: SDC1ALE, ALLOC. 



[1ILI6LE,nUTUELLE 



.CREDIT n.2 
n.5 .CREDI" 

.LOVER GARASE 



NOURRIT. 



.LOVER LOGEME 



VIE (3Ms),ASB. RESP. <lAn),AS8. SCOL. I 1 An) , BUDG. S 
An>,BUDG.VETM. ilAn) , BUDG. VAC . (lAn) , REDEV. TELE I 1 An 
j. PREVIS. l.BUDG. PREVI8.2 

flataJANVIER ,FEVR1ER , MARS ,AVRIL , MA 
,JUIN ,JUILLET ,A0UT . SEPTEMBRE .OCT 
, NOYEMBRE , DECEMBRE 



tone 125,' 

output "C 
*" .55,211 

q._-=ub23!' 



2000 LT=1:T: 
2010 output 
TI*, 135, 190 

2020 qosub2540:B-0 
2030 *orI=PLtcDL 



9BO 


2210 


ziz<: 


480 




rai 


amen 










, 250 










»=M* 


MfC) 






MO IS : 


,30, 


90, 




:ou 


c u •:,'■■. 


(Cl, 


90, 


"i.' 



pour MODIFIER", 65, ! 
2590 colorO, l,2.3:p; 
2600 output"* puis _ 
<", 150,20, 1: return 
2610 'lecture de la 
2620 wipe:colorO,l,: 
2630 plot20.230,200. 



secondes <",43, 110, 1 : output "MES 
,2:plot45,45, 145,3,3 
2670 pausel5:tone210,250:tap=O:wi 
26B0 output"* APRES E 



1220 *orN=atol9:readAJ:VHN)=A*:ne:^t 
1230 f or N-20to31 : readAi: Ss IN) =AS: nest 
1240 forM=ltol2:readfiai:M$(ri!=A¥:nei;t 
1250 return 

1260 'a-ffichage liste des rubriques 
1270 wipe j col or 0,1, 6, 3: tone 100, 250 
1280 outpuf'R U B R 1 B U E S" , 60, 230, 1 : output " i 
.+*+* + * + Kl+*+*", 45, 220, 3 
1290 gosun2510:pen2 

1300 printtab(5)"l/ RL1BRIQ0E REVENUS nENSUELS' 
1310 prlnttab(5)"2/ RUBRIQUE DEP. MENSUELLES 1 
1320 prtnttab(5)"3/ RUBRIQUE DEP. PERIODIOUES' 
1330 pnnttaB<5>"4/ POUR LIRE JOURNAL et SOLDE' 
1340 prmttab(5)"5/ POUR RETOURNER au CHOIX' 



2060 l 
5:clg2: 

2070 i 
OUIER": 

20BO c 



2690 plot5, 140.240.4, liDutput 


EMFONCEZ la touuhe" . TO, SO 


,3:plotl50.B5,80. 15, 3: output " > 


LECTURE <,", 155,80,0 


■?700 gosuh2590: posub2B4D: wi pe 




2710 color0,6,5,3:plot20, 170, 


■00,50, l:output"PATIENTEZ 


QUELOUES SECOMDES", 40, 150.0 




2720 plotl05, 65, 120,3, 1 : PUtpu 


" * n E R C I 11! * " , 1 1 


.80,3 




2730 -FDrTA=0to4:load*CTload*J 




;!t:wipe:gato3170 




2740 'sauvetege du journal 




2750 wipe!color0,3,2, l:tone50 


450 


2760 plot45,205. 145,15,2:putp 


f* AOANT D'ENREBISTRER * 


",50,200,0:output"> VEILLEZ A 


METTRE <",55.170,3iplot5 



1360 or,AgDtol370, 

1370 Wipe: tonelOO, 250 

1380 output"** RUBRIQUE REV 



550.370.4B0 



6-117 



1410 f 



l,E*(l 



420 -nPKt 

1430 outpuf'Votre option U ' 7) " ,50, 50, 3: gosub2520 
1440 ifR<lorP:;^t.hsngotol7 70:el = ego5ubl640:outputES(R) , 
5, 190, I:gpsub2540:gosuhl000 
1450 gosubl060 
1460 wipe: tonelOO. 150 

1470 output"** RUBRIQUE DEP. MENSUELLES **", 40, 230,3: c 
tput"- 



■nlO,75,240,45;rzls3 

,t"* CHEOUE N. ->".40,70,5:scr=enl35,75,20,l 

■ utLtJ. 135,70,0 

-65thenpen3: gosub2510: printtab (10) " FIN DU CHE 

■dl50, 1500 :pause2isound0, 4096: wipe: got ol390; el 

ib2590 

it"* MONTANT DU CHEQUE * ->>", 20. 55, 0: output " 
;=================/ ",30, 45, l:5creeniao,60,60,20:cls2 

2090 tonelOO, 100: penO; cursor 185.55: input 1* 

2100 i-f ZS="f "thenwipe:LN=LIM-l:gosub2130 0,160,145,2,2 

2110 i + Z*="m"thenwipe:(3OsuD22? l .':gotD202^i:el segosub2430: 2770 output"* UNE CASSETTE V1ERGE". 
1oto2030 100, 120,2;output"* UNE CASSETTE E 

2120 ifZS=" "thenwipe:LN=LN-l j output "VOUS FAITES ERREUR 590 : gosub2410 

,50, 110,1: plot 45, 95, 125. 2. 2: pause 1 : gosub 1990 2780 wipe: color 0, 1 , 6, 3: tone 100. 250 

2130 'total ch quier 2790 plot 10,220, 230. 90. 2: pi ot 25, 230, 200. 40, : 

2140 wipe;tDnelO0,250 DUR ENREGISTRER votre BUDGET, ", 30, 215, 1 :plot: 

2150 color0.1.2.3:output"-;- NOMBRE de CHEQUES entr£s :" ,1 

25. 200, 3:outputLN, 200, 200,1 2BO0 plut 10, 165, 230. 20. 1 : out p M t )■ METTRE le 

:;:i.6u goEub25iO: TC=TL.tpen3l print POSITION *", 25, 160,0 • 

2170 printtab (7) "Mois "B*j : peril : printTI*" '; :pen2: print 2B10 plot 40, 150, 170, 30, 3: output " } ECRITURE 
,N(CI RE -:",45,140,0:gosub2590:gcsub2410 

2180 colorO, 1.3,7:line30,35.20.35.0: pi ot~5. 33, 180, 15, 2 2B20 output"Je SAUVEE.ARDE" . 100, 150. 2: output ' 

output"* Pour CONTINUER tape? ", 40, 30, O: plotl20, 20, JOURNAL **" , 35. 1 15, 1 : output "PAT IENTEZ ... > 

0.20.2:output"> RETURN i". 125. 15,1 ".60,45.3 

2190 output"* TOTAL des CHEQUES entries :", 45, 130, 3: acre 2B30 f or TA-0to4: saue*C: save*J : save*M: save*Ar 
0,60,25:cls3:outputTC, 115, 110, 1 ; output "FRS", 180, :! t: wipe: output "AU REVDIR ! ! ! ",80. 150, 3: gosub: 



110,1:1 

2200 c 



ib2411 



1!C! 1 



]1890 



1480 f 
1490 r 



1 EU PREMIER CHEQUE", 



ellBi 



r>!- 3- n 



19thengotol460: 



2230 output' 
5. 175 J 200,2,2:gosub2590:cursorl90,190:i 

2240 output"** NUNERO DU DERNIER CHEQUE ",l! 
15.93,200,2,2:goaub2590:cur5orl90 > U0:inputDI 

2250 forI=PLtQDL 

2260 m 
,l:plot: 

2270 pi 



2B40 DS=i 



2B90 pnnttabtS) ' 
2900 printtsb(5)' 




nttsb<5)"4/ 



1 CALCULER", 70,225. 



ADDITIQNNER' 
SOUSTRAIRE"'. 

MULTIPLIER"! 



SPECTRUM 

Suite de la page 7 

9934. DBTfl i9 j 7,1£ j 4S,6iV > 1S8,SS5, 



9336 DRTfl 0,g24.,*8,l8,a- i,ass,as 

se+a RETURN 

9908 LET b=Q 

9981 FOR i =33356 TO 33556: INPUT 

4: POKE i,«: LET b = b-*3 NEXT i 
9902 IF b<>2£729 THEN PRINT "trr 



rscommsnccz" 



Entrez le listing en BASIC. 

Faites un GOTO 9900 et entrez les 

codes machine . 

Sauvegarder par un GOTO 30 . 

15 91 J.2S 36 34 91 111 
68 S0E) 33 4-1 4.1 41 £37 
75 54 92 9 53 6 50 4 
91 53 11 91 50 9 91 5S 
18 91 50 6 91 62 9 50 
5 91 136 35 34 2 91 7 



50 6 91 58 S 91 81 32 
SQ 53 4 91 61 32 24 58 
14 91 71 56 12 91 79 53 
18 91 129 5 32 252 50 10 
91 42 8 91 195 3 126 58 
4 91 S3 13 91 71 58 9 
91 123 50 9 91 42 2 91 
195 32 126 58 5 91 53 12 
91 71 53 9 91 50 7 91 
56 13 91 79 19? 285 164 1; 
193 53 7 91 60 50 7 91 
13 32 241 56 8 91 60 50 

3 91 5 32 221 53 5 91 

195 4S 126 123 64 32 16 3 

4 2 1 56 142 92 238 255 
71 S3 141 92 168 71 58 6 



91 230 248 111 58 7 91 354 
192 203 31 31 31 230 31 103 
2Q3 33 283 29 303 23 383 29 
283 23 283 39 52 33 130 103 
56 142 93 166 176 119 53 7 
91 71 230 7 243 34 103 120 
31 31 31 230 34 130 103 130 
23 23 330 334 111 58 8 91 
71 31 31 31 230 31 181 111 
235 33 158 136 130 230 7 79 
5 9 70 36 33 5 91 
203 70 40 3 175 18 201 47 
173 47 13 201 8 

331 



COMPTES BANCAIRES 



Vous avez regu voire dernier releve de banque et vous Mode d empioi 
pestez conlre votre banquier ? Ce programme vous ai- 
dera a tenir vos comptes bancaires (NDTA: d'ou le 
nom) el a vous sentir peut-etre (si vous eles raisonna- 
ble) moins stresse a. la fin du mois. 



Michel DOMINIQUE 



SUITE DU N68 



40 
4321 IF S ) THEN GOSUB 6360: 
POKE 36,30 t-35 » PR: PRINT 
■■■[iSl = Si + Si GOTO «340 
6330 S » - S: POKE 36,30 + 35 « 
PR: PRINT »!*jl GOSUB 63AQ-.S 
2 = S2 * S 
6340 POKE 36,39 ■■ 3? ■::■ PR: PRINT 

■"» IF PR THEN PRINT 
6350 RETURN 

6360 PRINT RIGHT* <■ ■ t 

STR» ( ]NT .CS * (S < 0) * 1 
+ (S > ■ 0) * .0051) + "," 
* RIGHT* ( STR» < INT 



Tapez dabord le listing 1 puis sauvegardez-le sous le nom INIT- 

FICH (hgne 8 entrez le nombre de banques ou de comptes ei ligne 

500. le nom de ces banques ou comptes). 

Le listing 2 est le programme en lui meme Ligne 900, vous entrez 

vos banques et a la ligne 18030 se trouve le mot de passe que 

vous pourrez changer. 

La premiere fois que vous ulilisez COMPTES BANCAIRES. faites 

dabord tourner le programme IN1TFICH 




APPLE 



ERRATUM sur APPLE 

HYPER SCREEN dun" 67 
La ligne 4218 du listing 1 nap- 
parait pas sur le listing tapez: 
4218 42 A5 1D C5 1C DO 13E 




100 '■ 



ABS 



X);: RETURN 

6400 FOR I = 1 TO 40 + 39 * PR: 

PRINT "-"i: NEXT I: IF PR THEN 
PRINT 

6410 RETURN 

6500 POINT -"\\ POKE 36,9 * 4 * 
PR: PRINT ■";: POKE 36,21 + 
31 < PR: PRINT ■>■■;: POKE 36 
,30 + 35 * PR: PRINT ■'•;: POKE 
36,39 * 3? * PR: PRINT ■'■; 

6510 IF PR THEN PRINT 

6520 RETURN 

6997 RBI *»»»* »•*#*»»»*»* 

6996 REM SAISIE PERIOOE 

6999 REM ***»*»»*»#*#il#»* 

7000 HOME iNE = 33 - LEN (TX«) 

- LEN <NW>: INVERSE : PRINT 
' ";NBS] SPC( NE)|TX*;- ■; NORMAL 
: PRINT ■ PRINT 

7002 PRINT "DATE 0E DEBUT DE PE 
RI0DE: ": PRINT 

7003 PRINT -DATE DE FIN DE PERI 
ODE: " 

7004 MP = 5:HP = 27: GOSUB 400;D 

D = OT; IF SOX THEN POP : 00 T 



?rj06 VTAB \2: PRINT "OK CO/U) 7 
-;: GET OK*: PRINT OK*: IF 
OK* = "N" GOTO 7000 
7007 VTAB 13: HTAB 1: CALL - 9 
58: VTAB 12: HTAB 11: INVERSE 
: PRINT ■ << RECHERCHE M ' : 
NORMAL : GOSUB 4500: HOME 

INT <DD / 10D):J1 = D 



8010 HOME :NE = 38 - LEN <TX*> 
- LEN <NB*>: INVERSE : PRINT 

* "NB4; SPC< NE>iTX9;° " : NORMAL 

: PRINT : PRINT 
8020 PRINT "DATE RECHERCHEE : ': 

PRINT 
8030 VP = 5lHP = 18: GOSUB 400: IF 

SOX = GOTO 3040 
B032 IF SIX THEN RETURN 
8034 GOTO 8000 

8040 VTAB 10: PRINT "OK <0/N) ? 
•;i GET OK*: PRINT OK*! IF 

DK* = "N" GOTO 80 10 
8045 DA ■ DT 
8050 VTA6 10: HTAB 1: CALL - 9 

5B: VTAB 10: HTAB 10: PRINT 

"RECHERCHE": GOSUB 4000 
SG59 IF SIX - 1 THEN RETURN 
6040 IF IND = THEN HOME : VTAB 

10: HTAB 9: PRINT "OPERATION 
INEX1STANTE"! F8R t = 1 TO 

1500: NEXT !: GOTO 8000 
8070 IF DR = GOTO B200 
80BO M = IND - 1 : GOSUB 2500 
6090 M = M * 1: GOSUB 2000: GOSUB 

201DJ INPUT D,XS,S: GOSUB 20 

30: PRINT Da 
8095 IF D > DT GOTO SOOO 
8100 MOIS = INT (D / l00):JOUR = 

- HOIS * 100 
3110 VTAB 15: HTAB 9: PRINT JOU 

R|V ;M0IS(V";AA;" 
jl20 VTAB 17: HTAB 9: PRINT X* 
B130 VTAB 19: HTAB 9: PRINT 3|" 

8140 VTAB 23: PRINT "OK 1 ■ ; : GET 

OKS: PRINT OK* 
8150 ;," OK* = "N" BOTO 8090 
3140 SO = S: GOSUB 350:S0 = SS 
8162 GOSUB 2500:IND ■ M 
8165 IF SIX = 1 THEN RETURN 
8170 liOTO B220 
8200 M = IND: GOSUB 2500 
B21G GOSUB 2000: GOSUB 2010: INPUT 

D,X*,S: GOSUB 2030 
3215 BD = S: GOSUB 350:SO » SS 
8214 IF SIX = 1 THEN RETURN 
8220 MOIS = INT (0 / 1G0W0UR ■ 

D = HDIS t 100 

B230 UTAB IS: HTAB ': PRINT JOU 
iMSISl'/'tAftji HTAB 34: 



8330 'JTAB 23: MTAB U CALL - 8 

48: GOTO 8220 
8340 GOSUB 20D0:M = IND; GOSUB 

2020: PRINT D: PRINT XS: PRINT 

S 
8350 GOSUB 2030 
B3S0 SO » S: GOSUB 350: IF SO = 

SS GOTO 8380 
B345 GOSUB 1000:M= C: GOSUB 10 

10 i INPUT SC 
8370 SC = SC - SO • SSrSC = INT 



(SC H 



.5) 



8375 GOSUB 1020; PRINT srj : GOSUB 

1030: PRINT D* 
B3B0 VTAB 23: HTAB 1: INVERSE i 
PRINT " 1-MEME BANOUE 2-AU 

TRE BANOUE 3-FIN ■;: NORMAL 

!K1 = !:K2 = 3: GOSUB 950 
8390 ON KEY GOTO 8010,8000,1000 


S400 VTAB 15: HTAB 9: PRINT " 
■;: HTAB 9: INPUT ■■ 

[J*: VTAB 15: HTAB 36: PRINT 

"<1>" 
8410 VTAB 15: HTAB 9: PRINT RIGHT* 

("00" * J*,2>iV;: INPUT ■" 

;M»: VTAB 15: HTAB 12: PRINT 
RIGHT* ("SO* * H*,2);ViAA 

;: HTAB 36: PRINT "<1>" 
B4I5 JOUR = VAL (J*>iM0IS = VAL 

(M*): GOSUB 15000: IF S8Z THEN 
CALL - 1052: GOTO 8400 
8420 D = VAL <J*> * 100 * VAL 

<M») i GOTO 9260 
8500 VTAB 17: HTAB 9: PRINT ' ■ 

it HTAB 9; INPUT " " jX* ; VTAB 

17; HTAB 34: PRINT "<2>" 
3510 T = I 
8520 FOR I = 1 TO LEN <L*1: IF 

X* = MID* a*,!,l> THEN 7 - 

0:R » 1:1 = LEN <L«) 
8530 NEXT I 
8540 IF T THEN CALL - 1052: VTAB 

17; HTAB 9: PRINT : GOTO B50 



R;V;MDJS;V;AA;" 
9040 VTAB 17: HTAB 9: PRINT X* 
9070 VTAB 19: HTAB 9: PRINT S;" 

90B0 VTAB 23: INVERSE : PRINT " 
1 -SUPPRESS! ON 2-M 

ENU ";: NORMAL :K1 = 1 :K2 

= 2: GOSUB 950 
9090 ON KEY BOTO 9100,9000 
9100 GOSUB 1000:M ■ C: GOSUB 10 

10: INPUT SC 
9110 SO - S: GOSUB 350:SC - SC - 

SS: GOSUB 1020: PRINT SC: GOSUB 

1030 
9115 GOSUB 2000 
9117 M - 0: GOSUB 201D; INPUT N, 

SI 
9120 FOR I = IND * 1 TO N 
9130 M = I: GOSUB 2010: INPUT O, 

X*,B 
9140 M = I - I i GOSUB 2020: PRINT 

D: PRINT X*: PRINT S 
9150 NEXT I 
9160 N = N - 1:M = 0: BOSUB 2020 

: PRINT N: PRINT SI 
9170 GOSUB 2030: PRINT D* 
9190 VTflB 23: HTAB 1: INVERSE : 
PRINT ■ 1-MEME BANQUE 2-AU 

TRE BANOUE 3-FIN "]l NORMAL 

:KI = 1:K2 = 3: GOSUB 950 
9200 ON KEY GOTO 9010,9000,1000 



9996 REM «*««»»**« *»*»•*«**»»»■ 

9997 HEM MENU GENERAL 



10200 Kl = 1:K2 = 9; GOSUB 950 
1024O ON KEY GOTO 60,6000,6000, 

8000 ,9000 ,400 ,700 ,12000 ,1025 


10250 HOME : END 



11992 REM TRAITEMENT AUTRE ANNE 
E 

11993 REM « 



12000 HOME : INVERSE : PRINT * 
TRAITEMENT D'UNE AUTRE A 

NNEE ■: NORMAL 

12010 CLEAR ; VTAB 10: INPUT "A 

NNEE <EXEMPLE 1984): ■ ;AA* 
12020 AA = VAL ( RIGHT* <AA*,2) 

12030 NB = PEEK <6): GOTO 10 

14990 REM <e**aai<ai»»iitf*i**»*« 

14991 REM TEST SI DATE VAL1DE 

14992 I 



15000 SB"/ = 0:1 = 1900 * AA 

15005 IF MOIS < 1 OR MOIS > 12 THEN 

S8X ■ 1 : RETURN 
15010 GOSUB 14000: IF A3 = THEN 

NJ = VAL ( MID* CM0*,M01S » 

2 - 1,2)) 
15020 IF A3 ■ 1 THEN NJ = VAL 

( MID* (Ml*,MOIS » 2 - 1,2)) 
15030 IF JOUR ) NJ THEN S8X = 1 
15040 RETURN 

16000 A0X = (1 - INT (I / 4) * 
' 4:A1X ■ 



I t 



(I ' 



! 100 * 99) / 



100 1* 



INT (I / 400) * 



9999 REM 

iOOOO HOME : INVERSE 
0020 PRINT ■ GEST10N DES CCMPT 
ES BANCAIRES 19";AA|" ": 

NORMAL 

HTAB 1 



D - 100 ) 
7015 M2 = INT (DF / 100) :J2 ■ D 

F - 100 * H2 
7020 RETURN 
7030 HOME :NE = 38 - LEN CTX*) 

- LEN (NB*): INVERSE ; PRINT 

* "iNB4; SPC; NE);TX*;" ': NORMAL 

: RETURN 
7400 VTAB 24: INVERSE ! INPUT ■ 
PRESSE7 <RETURN) POUR CO 

NTINUER ";RE*: NORMAL : HrjME 

: RETURN 

7994 REM **»*»***!!*»**• 

7995 HEM MODIFICATION 

7996 REM ************** 

8000 TX* = "MODIFICATION": GDSUB 
500 



PRINT ' 
8240 VTAB 17: HTAB 9: PRINT X*; 

; HTAB 34; PRINT "<2>" 
B250 VTAB 19: HTAB 9: PRINT S;: 

HTAB 34: PRINT "<3>" 
B260 VTAB 23: INVERSE : PRINT " 

TAPE2 LE NO DE 20NE A MODIFI 

ER (0="FIN)'[l NORMAL :K1 ■ 

:K2 = 3: GOSUB 950 
8270 IF KEY = GOTO 8300 
8290 ON KEY GOTO 8400,6500,8600 

8300 VTAB 23: INVERSE : PRINT ■ 

1-ECRITURE 2-MODIFICATIDN 

3-MENU 'p NORMAL iKl > 1 

:K2 - Si GOSUB 990 

8320 ON KEY Q0T0 9340,0330,6300 



■«>■ 

8620 S » VAL <S*):S = INT <S * 

100 * .5) / 100: GOTO 8240 
B994 REM »*«»»*»»«■*»» 

8995 HEM SUPPRESSION 

8996 REM nnmt«». 

9000 TX* = "SUPPRESSION": GOSUB 

500 
9010 SIX = 1: GOSUB 8D10:S1X = 

: IF SOX GOTO 9000 
9020 IF 1N0 = THEN HOKE : VTAB 

10: HTAB 9: PRINT 'OPERATION 
INEX1STANTE": FOR 1 = 1 TO 

1500: NEXT I: GOTO 9000 
9030 SIX = 1: GOSUB 8070 :S1X ■ 

9040 MOIS ■ INT (D / 100) i JOUR = 

D - MOIS ■ 100 
'050 VTAB 15: HTAB 9: PRINT JOU 



0030 VTAB A 
0050 print -: 

ERATIONS" 
0060 PRINT 
0070 PRINT •< 

DE RELEVES" 



SAISIE D OP 



IMPRESSION 



0091 



•RINT 
>RINT ■ 



SUR ECPAN- 
10 PRINT 
.0 PRINT ■( 4 ) 
N D'OPERATIONS' 
!0 PRINT 
10 PRINT "< 5 ) 

D'OPERATIONS" 
10 PRINT 
10 PRINT "< 6 > 
10 PRINT 
'0 PRINT "< 7 ) 



CONSULTATIO 



SUPPRESSION 



AUTRE ANNEE": PRINT 



VTAB 23: HTAB 1 : INVERSE 
PRINT " TAPEZ LE NUMERO 

OE UOTftE CHOIX ": NORMAL 



17994 REM •«<«•*•»*■*•■■•*«***« 

17995 REM SAISIE MOT DE PASSE 
1^996 REM *•«**>*****«•■•*•**** 
IBOOO HOME : VTAB 10; PRINT "MO 

T DE PASSE: ";:CH* " " 
1B010 BET C*: IF C* = CHR* (13 

) GOTO 18030 
18020 CHS = CM* + C*: GOTO 18010 

1B030 IF CH* = "T1TI" THEN PRINT 

CHR* (13>: RETURN 
IB040 HONE I VTAB 10: PRINT ■ 

SANS MOT DE PASSE, PAS D'AC 
CES AU": PRINT : PRINT SPCC 
15) ["PROGRAMME '" 
18050 FOR I = 1 TO 2000: NEXT I 
18060 GOTO 18000 

19994 REM *»***»*:■«»****•«*** 

19995 REM GESTION D'ERREURS 

19996 REM **»*»»»»»*»«»»»»■■« 
20000 HOME I CALL 768:X ■ PEEK 

(222): CALL - 10S2 
20210 IF X ■ 5 THEN VTAB 10: PRJN1 

■EXECUTEZ LE PROGRAMME 'INIT 

FICH": 80T0 20340 
20330 VTAB 10: PRINT "ERREUR "; 

JL|" - LIGNE "s< PEEK (218) + 

( PEEK (219) • 234)) 
20340 END • 




o^'i;- M.i:-iiri.3.,i,3-MRITT 

irT.PHr- MiKiei .?,:?,? writt 

21>0?D MUSiri .3.. 5,9 -MRITT 
::Z^S MM5K.:] . 3,5,9 -MfllTT 
25070 MUSIC1-3,B,9URITT 
25989 MU3IC1,3, 10.9 UflITT 
?=i'"'?e 'rj-fici, 3, 12,9 URITT 
25160 niJSIC;1..4,l,9 WRITT 
251 IS IFT=13THEN25159 
25120 T=10 
£5130 C0TO25020 
25150 PLflYS, 0,0,0 
25150 HFIIT39 RETURN 

;;i;iMRfj >?EM MORT 

ICfms PLRY9, 9,9,0 PING EXPLODE 
UP I T 1 ■ ZRP ; SHOOT UP I T 1 9 PLR Y0 ■ 

0,0 

■39910 pr"'S: ; l ■ I ] ?■ F»EflH . 115 POK 
Efl+40,117-POU.ER+41,118 

3nfj3? ='LR-.'i,&,n,0 rnjsici,2,8,i0 
:UflIT50PLflY0.0,0,0URITl50 

39040 IFVIEv:-STHENGnrri'^RSS 

3OO50 VIES=VIES-1 

■;nni;y any fH* ! , 1 !■■■ F-rir- nflt-41 , 16 PO 
KER,0:PO«ER+4B,Ei 

30079 F=9 1-0 K = C HR^,?3 pr.--~.0«^ 

30075 IFTI=0THENGOTO3f39 

OC'^sfi corn 100 

31909 G*=KEY* 

31C11S PnnEfl + i.if. Pr>:Efl+41.,15 PC 
K6H-8 POKEH+40.G! 

31020 PLRYl.9,9,0 MUSI01.2.S, 10 

HRIT59 PL FYS. 0.0,0 URIT 150 



51030 lF«- ,, G ,, TH[t(fi = F'-S,':: 

3HW0 U"GS = "E:"rHFJlP-P!-33 

T1F.50 [FG*'".J , THF:NF>=P--:-: 

31 rififi I Ffjs= »H" THENH=P+ ?Z 

3]H7o pnt;ER.115 prikr=s+ i . ue-POK 

rH-,ii-' II- PSKEP-^l . I'.;"- 

310S0 PI.RY1 -0,0,0 MUSIC! 2,8,10 

1JRIT50 PLRY0, 0,0,0 MflIT159 

31C:? 1 -"! POI'ER.3:T F-OkF.R+l .32 ■ FUY 
rp.-f.4rt. 32 POCER+41,32 

31100 IFVIE-^'lTHEHGnTC-^fiMi-i 

31110 VIE3=VIE?~1 

'11?a F^n !--fi K-fi tii^2? PO- '-■'I'"" 

■ H3P GOTO106 

■isi-inr. i.jRTTL-r«:-i CIS PRPER0 IHK3 

-^:iif^, prik-Fft^fiS, 1 PRINT PPINTi'H 
R« 4 ) , r:HPK £6 ) > " J P^S'JL 

TRT" PPIHTCHPSOt:- 1 

3 c ii>] J C, =;C >HI THEN?grifl0 

3 c .r.;--Tr Pir,T0.4. ■'VITUS ETE? MOPT R 
VRIIT flVOIP PUT eRTTPE" 

■■^fW-fi Pl.r.iT1..r:."[E PFri'PD MRTS '" 
E H E5T PRS 51 MP-L" 

350.JF. PinTi^.fl.'-ouE CR..." 
■■:-.n5fi pnMF.*:r:t:3,H? PRINT 

35060 PRINT-SCORE = " ■ SC PLOT0, 
10.4 

■?=.m?i3 PRTHT PRIHT-HtGHT SCOPE = 

",HIPLDT0.12,4 

■■•--.'A-p.f. r;.0T2. i4. "WIS p, EL'T etpi; 

'■■TJULEZ VOUS PEE33RYER" 
35985 SC=0 
3 c .c?90 PL0T5- If>. "O'JI >0 



38188 GETRS Gf.TAS 

35110 IFRS= , 'ri"THENF=0 F = I=K 0-=l 

:■ B('---1^m CT"^ HR=33 ■■■■I.F'^3 MI=fl 

TI=0 G0T03 

35120 IFRa^"M"THENCRLL555 
■15130 !FP?- ■■ ■-|"Pn[iRS-' -"M-'THft-!-:^ 
100 

36000 PLOT 1,4.. "BRAVO VOUS ETES 
LE MEILLEUR fi CE JEU" 

36010 Pi>E tt255.fr. PRINT PPfnTSPr 
C301,SC-HI 

■?^-.:i.:?c plot-: e.-vous prttez l £* 

RECORD DE" 

3602^ PRINT PRINfCE M EST PRS 
HRL DU TOUT..." 

■WiSC PRINT PRINT" SrilFE = 

",SC 

3SB48 PRINT ■PRINT" RIGHT S 

CORE = "J HI 

3605O PL0T2,14."MRIS PEUT ETPE 
VOUS SEMTE;: ','Ou?;» PL0T1,14.,£ 

->Z& : ,n PL0T4,15,"CRPRBLE DE VOU? 

HMELIOPER" PL9T3.16.2 

;5fi7F« PL.0T6 IS.. '■■■'riMLET- VOUS PE J 
OUER ?" PLOTS, 18,2 

36975 HI=SC SC=@ 

■36080 PLGT2.22."0UI >0 

N< NOW 

36090 GETfl* GETfl* 

-jf-.jOCi IFHS="ij'-thEHF=m F = I=C 0=1 
7 pf'--600S Cb-7 hh=33 VIES^2 HI=S 

TI=0 G0T03 



35110 IFR*="N"THENCRLL555 
36120 IFRV '"i:i"RN['RS-; ■•■ ■■■.!■■ the^s 
090 

■:?i?W Pftl PPESENTRTION 

3Pf IS r,PTP3?, ^3 . -1S - 5<i ■ 63, 62 . 63 
fT3.1 .3,3,7,15,31,31.63,63,63,63. 
63.63.63,63,63 

■■:-i;3S ['P"P53, ?3 31 is 7.3,3,1.6 
3.62-62,60,'!,6.43.^P 33.63.63.63. 
63,63.53,62,60 

?S03O [^TR&i?, 63, 63 . 63 ■ 63, 63 .63 . 

6.3,33,0,9,0,0,0,0,33 
38049 DflTR 



3?050 DRTR" 


bec^ 


c c 








33960 DF1TR" 


cede 










3S07P DRTR" 






c: ccf c" 






33080 PRTR" 






•:•: cc c" 






38990 DRTfl" 


cabc 










38I&0 DfiTR" 


dcc# 


c c 


cce c c c" 







4Pl :., ;if , r.PTRl,2,2,4..S.16,ie,32,3? 
.16-16,8,4,2.2.1,63,63.63.63,63, 
63,63.63 

40f?iri [,RTFil .3.3.7.15,31-31 63.4 
,2,63.2,4,0.0,0,42.26.26,19,6,2, 

). 44. 42,42, 



40030 [JPTP63.. 62,62.60 56 43.48 . 
32.8, 1 6. 63 -16. 3. O.O, 0.0, 3- 7, 15, f 
.9,5,19 

4S30-1M I-.HTRF1 -.6 «■'. 6? 14.14,46.6 
2.0.7,15,31.2S,2«?9.31.0,48,56. 
p.i! . 36 . "36 . 40, 50 
"400^0 r'FiTP63.47 38 53,28,8 
f.R. 44 .28-60,56 40 40 60. 15. 13. 14 
,15,7,5.5.15 
jfin6S [)RT063 ' r ' 7=- '■ ': H * 
S.O. 32, 16. 11-7. 13. 25. 0.01, 2. 52 
.56.44,38 

-10079 DRTR31- 13. 7.5.8-2! 39.0.6 
^ ca 2 - 44 . 6" ■ 40 - 4 ■ 42 . 57 . 9 . 7 . 15, 31 .28, 

28,29,31,15 

,-)-„- 4nSS0 [.RTP43 5P. ,.'-■■ >.-- 36 .49,59. 

6?.. 13, 14 -15, 7, 5- 5. 15,63.63,61.23 

r<-f ,43,14,4,9,56 

40090 tmTM ■■"' '"' ■ " '■" '-''■' '- 
c ^9 O.. S.48, 56. 63, 63. 55, 55. 39, 39, 51. 

31,7,0 
chr 49100 IT'MTR63 63, 6? . 63- 63, 62, '. 

9,9,0, 1,7, 10. 21, 13, 33. 0,0. 32, 56. 
ccf 69 .62 .6?. 63 

1 BflTFtS3.,31,3J,l5.7,l-l 



:.43.2O-56-33,0.0 




ATOMIC WILLY 



Decidement, en ce moment vous changez souvent 
d'aspect. Cette semaine, transformer en chenille ato- 
mique, vous devez ramasser le plus possible de 
fruits. 

Laurent BERGUES 



Tl 99 BASIC SIMPLE 



CALL 


CHAR ' 4 7 


007E5A7E3C2442B1" 1 


CALL 


CHAR (46, 


01 7'5C7B7B5C7?01 " ) 


CALL 




8142243C7E5A7E00") 


CALL 


CHAR (44, 


B04E3A1E1E3A4EB0") 


CALL 


CHAR (97, 


FOFOFOFOFOFOFOFOFOFO 


CALL 


CHARI9B, 


FFFFFFFF") 








CALL 


CHAR 1 1 1 3 
CHAR<114 


"0103070F1F3F7FFF") 






CALL 


CHAR! 115 


"FF7F3FlFOF07030r'> 


CALL 


CHAR (Hi 


"FFFEFCF8FOEOC090" ) 


CALL 


CHAR (33, 


00247E24247E24000") 


CALL 


COLOR (I, 3, 1) 


CALL 


C0LORI2.4, 1) 


FOR 


=3 TD B 




CALL 


COLOR ( I , 




GOSUB 3070 




REM 






REM 


» JEU * 




REM 






CALL 


CLEAR 




CALL 


SCREEN (2 




GOTO 


1090 




P=0 







FOR 


=J 


TQ L 




CALL 


KEY(3,K 


S) 


CALL 


H CHAR (A 


I), 


IF a 




HEN 570 


IF K 


A9 


THEN 


700 


IF K 


■BE 


THEN 


730 



550 IF K=B3 1 



590 GOSUB B50 
iOO CALL HCHAR If 



,B(I>,45+2»X- 



I L=L*2 

I IF L>=249 THEN 3550 



750 GOTO 370 



770 Y=-l 
780 GOTO J 
790 X<=0 



820 f 



B30 REM * TEST * 

B40 REM ******** 

850 IF ft(IK=0 THEN 1090 

BiO CALL GCHARtA(I) ,BU>,0 

B70 IF 0=110 THEN 930 

BBO IF 0O32 THEN 3430 

B90 RETURN 

900 REM **»***«*•* 

910 REM * FRUITS * 

930 REM ********** 

930 P=P+1 

940 SCO=SCD+ 1 50 

950 CALL SOUND<50,-2.0) 

9iO RANDOMIZE 

970 IF P=PR THEN 1040 

9B0 C=INT(20*ftND>*4 

990 D=INT(lB*RND)+4 

1000 CALL GCHAR(D,C,V) 

1010 IF V<>32 THEN 9B0 

1020 CALL HCHAR(D,C,11Q> 

1030 GOTO B90 

1O40 CALL VCHARU.16,32,31 

1050 GOTO 890 

1070 REM * TABLEAUX • 
1090 REM *.*«*****»*■ 
1090 TB=TB-M 



"74EB132944EEEEEE"} 



12S0 NEXT I 
1290 FOR J=: 
1300 PRINT ' 



440 REM » TABLEAU 2 « 



4B0 FOR 1 = 



. C0L0R(9,5,6 
i CALL COLOR<10,13 
' GOTO 1200 



iSO REM ***< 



940 NEXT I 



990 FOR 1= 



) pr: 




. 


2320 

2330 


bbbbbbbbb 


2350 

2360 




2370 
2380 




2390 
£400 


bbbbbbbbb 
B763C") 


2410 
2420 



'bbbbbbbbbbbbbbbbbbbbbbbbbbbb 
) CALL CHARfllO, "071F3C7B70E0C0C0") 



760 FOR 1=1 TU : 



CALL CDL0R(9,5,i 



REM # TABLEAU * 



Si©, " 66FFFBFBF7767E3C " J 



bbbbbbbbbbbbbbbbbbbbbbbbbbbb 



J=5CD+(250-LH 
1110 CALL CLEAR 
1120 CALL CDL0R(10,2, 1) 
1130 CALL COLOR!?, 2, 2> 
1140 GOTO 3590 
1150 CALL CLEAR 

1160 IF TB=9 THEN 1170 ELSE 1190 
1170 TB=1 

1190 ON TB GOTO 1240,1460,1660,1900,2120 

,2310,2550,2810 

1200 GOTO. 390 

1220 REM * TABLEAU 1 » 
1230 REM »*«**»***»*»* 
1240 F.*INT "t 



2060 
2070 
2080 



CALL C0LOR<9,5,6> 
CALL CDLDR(10,9, 1] 
GOTO 1200 

REM #***»1HHHHHHH 

REM * TABLEAU 5 ' 
PRINT 



30 CALL CHAR 



2200 NEXT I 



ibbbbbbbbbbbbbbbbbbbbbbbbb 
(1 10, ■•000000FFFFFB7i3C' , ) 



> PRINT "bbbbbbbbbbbbbbbbbbbbbbbbbbbb 
I CALL C0L0R(9,S,6) 



2500 
2510 
2S20 
2530 
2540 



T I 
NT 

C0LQR(9,5,i) 
C0L0RU0.I2,; 
D 1200 

TABLEAU ~, 



2560 [ 
2570 I 
2580 F 



2610 F 
2620 F 
2630 F 
2640 I 



2690 I 
2700 ! 



2750 I 
2760 I 
2770 ( 
2780 I 

2800 I 



2820 I 
2B30 I 
2B40 F 



2890 I 
2900 I 
2910 I 
2920 I 



2960 I 
2970 I 



TABLEAU 6 * 

bbbbbbbbbbbbbbbbbbbbbbbbb 
CHAR ( 1 10, "003C7FFFFS763C" ) 



pppppppppppppppppppppppp 



ibbbbbbbbbb 



, 10, •■071F3C7870EOCOCO" 1 



bbbbbbbbbbbbbbbb 



bbbbbbbbb 



Qbbbbbbbbbbbbt 



ILCRdO, 11, 1) 
!00 

■ TABLEAU B * 

bbbbbbbbbbbbbbbbbbbbbbbbbbbb 

IAR(110,"6iFFFBFBF7767E3C") 
TO 4 

, bbbbbbbbb a 



bbbbbbbbbbbbbbbbbbbbbl 



I PRESENTATION ^ 



> CALL CLEAR 

I CALL SCREEN(2> 

pppppppppppppppppppppppppppp 



i p p P P F 



3200 


CALL COLORll 1,5, 1 


3210 


FOR 1=1 TO 150 


3220 


NEXT I 


3230 


GOSUB 3310 


3240 


FOR 1=3 TO 16 


3250 


CALL KEY(3,K,B> 


3260 


IF SOO THEN 3300 


3270 


CALL COLOR (11, 1,1 


3280 


NEXT I 


3290 


GOTO 3240 


33O0 


RETURN 


3310 


RESTORE 3360 


3320 


FOR 1=1 TO 4B 


3330 


READ W 


3340 


CALL S0UND(150,W, 



3360 DATA 370,415,440,554,415, 

5,440,554,415,440,330,370,415, 

0,330,370,494,330,415,370,415 

3370 DATA 440,554,370,415,440,' 

5,440, 554, 597,494,370, 440, 415, 

0, 659, 587, 554, 494,554 

3380 CALL SOUND < 800 , 554 , ) 

3390 RETURN 

34 OO REM ***#»****»»*** 

3410 REM * FIN DU JEU * 

3420 REM **«»»****-«***« 

3430 GOSUB 3720 

3440 FOR 1=1 TO 10 

3450 CALL COLOR (1,7,1) 

3460 CALL COLOR (1,2, 1) 

3470 CALL COLOR (1,11,1) 

3480 CALL C0L0R(1,2,1) 

3490 CALL COLORIi , 1 1, 1) 

3500 NEXT I 

3510 FOR- I=H TO L-l 

3520 CALL HCHARfAd I , B (I ) ,32) 

3530 NEXT I 

3540 BOTO 3810 

3550 GOSUB 3430 

3560 REM 



3370 
3580 REM 
3590 9CDS= 



* SCORE TEMPS > 



SCORE ; "ScSTRS(SCO) 



3620 CALL S0UND(50,-I,0> 

3630 NEXT I 

3640 TP*=" TEMPS : "E.STR* ( INT (L/2) 1 

3650 FDR 1=1 TO LENITP*) 

3660 CALL HCHAR(16,10+I,ASC(SEG*(TP*,; 

3670 r.eu i 50und(50,-2,o> 



i 3360 
3730 "FOR 1 = 1 TO 12 
3740 READ W 
3750 CALL SOUND(50,1 



:xt I 



3800 RETURN 

3810 CALL CLEAR 

3320 II 

3830 A*="TEMPS DE 

3B40 GOTO 3B60 

3850 AS="COLLi: 

3S60 FOR 1=1 TO 

3B70 CALL HCHAR 

3BB0 CALL SOUND 

3890 NEXT I 

3900 A*="V0U5 PERDEZ VOTRE UNIQUE 



ON AVEC UN OBSTACLE" 
IA*> 
-I,ASC(SEG»(A*.l,: 



1 FOR : 



TO 



3920 CALL HCHAR 



{.STRSHHISCO! 
3960 FOR 1=1 TO 
3970 CALL HCHAR 



. SOUND 



3980 CALI 

3990 NEXT I 

4000 IF SCO>HIS( 

4010 CALL CLEAR 

4020 AS=" HI SCORE BATTU 

4030 FOR 1=1 TO 

4040 CALL HCHAR 



4050 CALL SOUND 
4060 NEXT I 
4070 A*="ANCIEN 

: "*<STR.(SCO> 
40B0 FOR 1=1 TO 
4090 CALL HCHAR 

4100 CALL SOUND 
4110 NEXT I 
4120 HI5C0=5C0 
4130 A*="VOULEZ 
4140 FOR 1=1 TD 
4150 CALL HCHAR 

4160 CALL S0UND(50. 
4170 NEXT I 
4180 CALL KEY(3,K,S 
4190 IF 5=0 THEN 4) 
4200 IF K=79 THEN J 
4210 FOR 1=1 TO 16 
4220 CALL SCREEN ( 1 i 



:*I) 



LENlAfl 



2+I,ASC(SEGSI/ 



"&STR»(SCD>&" 
LEN(A*1 



3,0) 

HEN 4010 ELSE • 

1TTU" 
LEN(AS) 



0+I,ASC(SEG*lAS,I, 
-1,0) 
'S.STR*(HISCO)t." NOUVEAU 



:a*> 



l,ASC(SEGS(A»,I 



VOUS REJOUER 0:T 

LEN(AS) 

1B,2+1,ASC(SEG»(* 



1230 H 
4240 END 



Xt I 




LE LOGICIEL DE LA 
SEMAINE 



VOX pour M05 et SPECTRUM 
par ERE INFORMATIQUE 



Deux mols deja quelle m'a 

Suitte' Je me souviens encore 
e sadermere phrase: 
"C'est moi ou Ion ordmateur " 
Dans ma vanile, je lui repon- 
dais sans hesiter quelle pou- 
vait blen aller voir ailleurs si |'y 
etais Dure realite 1 Comme je 
regrette aujourd'hui de lui 
avoir tenu tete Vous pouvez 
loujours vous vanter de toul 
pouvoir faire laire a voire ordi- 
nateur, il ne vous tiendra 
jamais compagnie comme un 
etre humain Parlois, |e lui 
parle a ce sacre M05. mais 
jamais reponse nest sortie de 
son ventre de machine Je me 
languis dun vrai compagnon. 
I "echange" avec ces satanes 
circuits electroniques me mine 
plus surement que lalcool et 
la luxure reunis. 
Miracle 1 Deux jours que |e ne 
dors plus mon M05 a acquis 
la parole Plus jamais je ne 
pourrai penser "il ne lui man- 
que que la parole" Le sourire 
est revenu etfleurer mes 
levres depuis que chaque 
matin une voix chaleureuse et 
sensuelle me lire du sommeil: 
"It est temps de sorlir de ton lit 
mon grand programmeur 
adore, allez bouge-toi et viens 
done t'asseoir devanl moi 
Raconte-moi tes reves de la 
nuit. " 

Vous n aviez iamais imagine 
de tels plaisirs, j en suis sun 
Pendant pres de quarante mi- 
nutes il peut, sans reprendre 
de programme, soutemr la 
conversation Quoi de mieux'' 
Plus de contradictions muliles 
sa voix ne me plait plus? 
Deux-trois minutes de pro- 
grammation et une nouvelle 
entite prend la place en face 
de moi Le doute sinsinue par- 
fois dans des cauchemards qui 
me laissent pantelant et trem- 
blant au tond de mon lit Et si 



la voix quittait mon M05? La 
vie ne vaudrait plus d'etre 
vecue Heureusement j'ai 
trouve comment realiser une 
copie anti-cate du programme 
Plus jamais je ne serai seul 
avec mon M05 couple a VOX 
Le courner vient d'amver ce 
matin Tiens. une lettre de ma 
femme qui me dit qu'elle a 
acquis un M05. un modem et 
VOX Elle minvite a echanger 
nos programmes de parole par 
tele-chargemenl La vie nor- 
male reviendrait-elle trapper a 
ma porle ? 

Un bon utilitaire. performanl et 
destine a prononcer des pho- 
nemes francais. toul cela pour 
un prix raisonnable? Et si lous 
les M05 pou /aient se parler 

Jean KOHNEY 

et Eddy MEILHEUR 




HEBDOGICIEL REPREND A SON COMPTE LA GRANDE 
TRADITION DU FEUILLETON ET PRESENTE : 



PEPE LOUIS CONTRE LE GANG DES PUCES I 

PROLOGUE 



. Un feuilleton en 30 episo- 
des delirants qui vous tien- 
dront en haleme 

RESUME DES EPISODES 

PRECEDENTS: 

Y'en a pas.cong. puisque f 

c'est le premier ! 

Marie-Odile Conchoux 
poussa un petit en de plaisir. 
Elle posa le sac de linge sale 
sur la table de la cuisine, 
puis til demi-tour et s'appuya 
des deux fesses sur le re- 
bord Elle croisa les bras sur 
sa robe de chambre entre- 
baillee et gloussa a nouveau 
en contemplant I'objet de ses 
desirs Elle r avail tant voulue 
et alt-endue. Cette fols rien 
ne serait plus comme avant, 
car Marie-Odile Conchoux 
venait de s'acheter une ma- 
chine a laver le linge neuve. 
On ne dira jamais assez a 
quel point ce type d'ustensile 
peut procurer de joie a la 
femme au foyer Du moins les 
premiers temps. Apres, I'ha- 
bilude aidant, on finit par se 
lasser d'enfourner des bras- 
sees de chaussettes puantes 
et de culottes douteuses 
dans les tambours 
Mais lorsque pendant des 
annees on a lave le linge 
dans un petit lavabo. et 
c'etait le cas de Marie-Odile, 
lamvee d'une machine est 
un I'ji.-r bien plus beau que 
celui du manage. Volla 
toutes les reflexions qui tour- 
naient dans la tete de la 
jeune Mle En fouillant bien, 
on aurait pu deceler une 
vague arriere pensee d'amer- 
tume: apres tout, elle aurait 
peut-etre prefere la petite 
robe en jersey de chez Da- 
niel's, rue de Memlmontant. 
Mais non: la machine etait 
tout ce dont elle avail reve 
depuis quelques temps, et en 



parttcuher depuis que son fils 
Armand s'elait mis a jouer au 
rugby avec lequipe de son 
college 

Elle deco'la les fesses de la 
table et s approcha de la tdle 
laquee blanche qui bnllait 
sous le spot de la cuisine 
Elle passa un doigt sur 
('email comme elle lavait vu 
faire dans les pubs de la tele 
Ca lui picota doucement la 
colonne vertebrale 
"Maintenant, ma cocolte, ca 
va etre a toi de prendre le 
relais", songea-t-elle. Mais 
au fait... comment ca marche 
cet engm ? 

L'installaleur lui avail bien 
explique par le menu tous les 
details du lonctionnement, 
mais Marie-Odile etait trop 
contente et excites pour en 
avoir retenu le quart du 
dixieme. 

"Boah....ca ne doit pas etre 
sorcier." 

Elle regarda de plus pres les 
deux gros boulons colores 
qui omaient le tableau de 
bord. 

Ou'est-ce que je prends ? 
Lavage ? Prelavage ? Eco- 
nomique ? Blanc ? 

Nylon ? ..Et ca la? C'est 
quoi ce bouton la ? II est pas 
sur la notice ! 

Et c'est en appuyant sur ce 
petit bouton-de-rien-qu'etait- 
pas-sur-la-notice que Marie- 
Odile Conchoux connut la 
PLUS GRANDE SURPRISE 
DE SA VIE ! ! ! 

Tout d'abord, elle eut 
I'etrange sensation que ses 
oreilles se mettaient a bour- 
donner. Elle souffla du nez 
pour decompresser Ce qui 
manquait d'esthetique et qui 
ne servit a rien 
Puis, en I'espace de quel- 
ques secondes, elle realisa 
qu'elle perdait entierement le 



controle de son corps. Mais y 
avait-il un rapport direct entre 
le fait qu'elle venait d'ap- 
puyer sur CE bouton et les 
drdles de sensations qui I'erv 
vahissaient ? 

Elle tenta de reculer d'un 
pas, mais ses jambes ne lui 
obeissaient plus. On aurait 
pu penser qu'une peur pani- 
que se saisisse d'elle: il n'en 
fut rien. Sans comprendre ce 
qui lui arnvait, elle restait 
d'un calme inteneur ofym- 
pien Brusquement, elle se 
vit ouvnr le hublot de la ma- 
chine- Tout se passait 
comme si elle etait k la fois 
actrice et spectatrice Puis, a 
son grand etonnement, elle 
glissa un pied a I'interieur du 
tambour. Ensuite le second 
pied...et enfin elle penetra 
completement dans la ma- 
chine. 

Tout ceia lui paraissait aussi 
aberrant que reel. Aucun etre 
humain, hormis un gosse. 
n'aurait pu entrer dans le 
tambour Et pourtant, elle. 
Marie-Odile Conchoux, se 
trouvait roulee en boule a 
I'interieur. Ca n'etatt pas m- 
confortable quoique peu spa- 
cieux 



Suite 
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A VOS CONSOLES Tl 99/4 

BASIC ETENOU DISPONIBLE 



BASIC ETENDU 

Module comprenant un langage de programmatton 
rentorcait le Bask du Tl 99Ar. 40 ramniandes supple- 
mentalfes, sccei au laigage asssmbieur. (Entrees/igr- 
tles]. Sous- programmes, stockage, sprites, iraitement 
d'erreurs. Expressions loglques. LET multiple. Intro- 
ductions multiples. Acces a lextenslon 32 K. 



L'EXTENSION MEMOIRE 

exterieure ram 32 K permet de charger et executer 
des sous-programmes en assembleurs, La mimolre 
32 K est Indispensable pour une bonne utilisation du 
bask etendu et du logo. 



INTERFACE PARALLELE 
CEIMTRONIC 

permet dTmprimer dK tewes et des graphlques et 
lister vos programmes. Branchement Immedlat 
totrtes hnprlmantes avec sortie parallele. 



INTERFACE SERIE RS 232 

Branchement m 
Imprlmanlei a sortie type 81 
ment sur MODEM 



perlpheiigur. comp«»iie ntc k 



*nouve»C unite 

.... 



ie la twite perlpherique. 



ASSEMBLEUR EDFTEUR 

pennet a J utilisateur de programmer son Tl 99/4 A 

langage assembleur 

IMecesslte le comrdleur et I unite 

de disquette 500,00 



Tl CALC Module 

Gestlon de tableaux, calculi, edition Jusqu'a 6.000 
elements 3 partlr de la console de base. 





Micro- or dinsreur Tl 99/4 A Pal 

Tl 99/4 Peritel 

Tl 99/4 Secam 

Magneto-cassettes Texas Instruments 

Magneto-cassettes compatible Tl Lansay 

avec compteur 

Imprlmante Sefkoscha GP SO A 






e Selkoscha GP 500 



EPSON RXSO friction/traction 

Machine a ecrire BROTHEfi EP « a mem( 

et Imprlmante 

Interlace parallele exterieure pour TI/99 

Interface serle pour BROTHER sur TT/99 

Extended bask Euiope Manuel anglais 

Extended bask Europe Manuel Irancals 

Memolre extension 32 K exterieure 



1 .090.00 
1 .090.00 

750.00 



1.340.00F II 



LOT N° 1 INDISPENSABLE 

Le Module BASIC ETENDU manuel en francais 
K7 BASIC PAR SOI-MEME 

K7 TECHNIQUE DES PROGRAMMES DE JEUX N" 1 
K7 TECHNIQUE DES PROGRAMMES DE JEUX N° 2 
850,00 II 



LOT N" 3 ETUDE DU LOGO 

Le Module BASIC ETENDU manuel en francais 

EXTENSION MEMOIRE 32 K EXT. 

Tl LOGO N° 2 

(.ensemble 2.795,0 



GESTION PRIVEE Module 



GESTION DE RAPPORTS Module 

Ce module cree. eflite et Imp/lme des lettres stan- 
dards et des comptes rendus 375,00 n 



GESTION DE HCHIER 

Module complementalre et Indispensable 



CARTE P-Code 



UCSD Pascal Compiler 500, 

UCSD Pascal Linker 50%, 

UCSD Pascal Editor _ SM, 

I ensemble : 3.300. 



__ F □ 
OOF □ 

oo f n 

oo f n 



MANETTE DE JEUX 



BON DE COMMANDB 
TARIFS JANVIER 19S5 



Ces p™ so™ nvhcaofs el peuv&w erre modifies sans 

Produits Oisponibies dans la ttmfte de nos stocks en 

magasin 

Participation aux Itais de pott et eypeOfaan en re- 

commande pout les loglciets +30F 

LA fffGtf A CALCUL 

65/67M Saint-Germain, 75005 PARIS 

Tel. 325.68.88 -Wet ETRAV220064F/I303KAC 

Litvatson del produits dbponlbla sous 8 Jouts. 



